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IDENTIFICATION 
PRODUCT CODE: AC-S3888-MC 
PRODUCT. NAME : CZMLABO ML11 LOGIC TEST 
PRODUCT DATE: _ 2=FEB-81 
MAINTAINER: TOM LANWSBY 
AUTHOR : D.W.NEALE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
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AFFILIATED COMPANIES. 


COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION 
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1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
0 OPERATING INSTRUCTIONS 
COMMANDS 
§ SWITCHES 
. FLAGS 
& HARDWARE QUESTIONS 
SOFTWARE QUESTIONS 
§ . EXTENDED P-TABLE DIALOGUE 
2. QUICK STARTUP PROCEDURE 
3.0 ERROR INFORMATION 
4.0 PERFORMANCE AND PROGRESS REPORTS 
5.0 DEVICE INFORMATION TABLES 


6.0 TEST SUMMARIES 
1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


DIAGNOSTIC ENGINEERING WAS CONTRACTED BY MEMORY ENGINEERING TO MAKE THIS 
DIAGNOSTIC IN ORDER TO AID MEMORY ENGINEERING TO DESIGN AND DEBUG THE 
apelin AID FIELD SERVICE FOR FIELD REPAIRS AND INSTALLATIONS OF THE 


THIS DIAGNOSTIC PRODUCT WILL BE DESIGNED TO TEST FROM ONE TO EIGHT 
ML-11 UNITS OFF A SINGLE RH11 OR RH70 CONTROLLER. 


THE FUNCTIONAL LEVEL (FRU) OF THIS DIAGNOSTIC PRODUCT WILL BE TO THE 
LOGIC FUNCTION LEVEL (I.E. DRIVE SELECTION). UPON DETECTION OF AN 
ERROR BY THE DIAGNOST LOG 


BY I Ic, IC FUNCTION AND _ IVE MODULE 
WHICH IT IS LOCATED ON WILL BE PRINTED TO THE OPERATOR 


THIS DIAGNOSTIC WAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
ph 3 il ed SOF TWARE TOR THESE SERVICES PROVIDE 


THE XXDP+ S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS ‘ 


THE HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STANDARDS SET FORTH 
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159). 


PDP-11 WITH MINIMUM OF 28K WORDS OF MEMORY 


CONSOLE TERMINAL 
RH11 OR RH70 - 
1 TO 8 ML-11 DRIVES ON INTERMIXED BUS 





— 
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XXDP* LOAD MEDIA 

1.3 RELATED DOCUMENTS AND STANDARDS 
1. SUPPRGC.DOC 
2. SUPINT.MEN 
3. SUPFUN.C 
4. XXDPPLUS.DOC 
5. BLISS LANGUAGE GUIDE 
6. BLISS-16 USER'S GUIDE 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

IT WILL BE 7 ee THAT PRIOR TO THE RUNNING OF THIS DIAGNOSTIC THAT 
ALL APPROPRIATE CPU, MAIN MEMORY AND RH CONTROLLER DIAGNOSTICS HAVE 
BEEN SUCCESSFULLY RUN. 


THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS TO ENSURE ITS 
ee es AND BASIC FUNCTIONALITY BEFORE LOGIC TESTS ARE ALLOWED TO 


2.0 OPERATING INSTRUCTIONS , 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME rE 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC ert SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 








COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT saith tl 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE FROM AN ERROR HAL 
EXIT RETURN TO XXDP+ MONITOR (x (XXDP+ asst toate a ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
DERED TO BE ACTIVE AT START TIME 
DEACTIVATE A_UNIT 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 
DISPLAY TYPE A bist OF ALL DEVICE INFORMATION 
TYPE STATE OF ALL FLAGS se SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.5) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘START’. 





-—— 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES se ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE NDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULA yw WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"*. 








SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF T 


$ 
OR EXAMPLE - /TESTS: ass 7 -10. 

THIS LIST WILL ruse TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL 


THER TESTS WILL NOT BE’ RUN. 
/PASS :DDDDD EXECUTE OP ASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0.5.10,11.12 (UNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS : 1-5/PASS : 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES OMLY. 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. “You MAY, 
FOR EXAMPLE, TYPE ''/TES:1-5"° INSTEAD OF ''/TESTS:1-5"*. 


= IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 


me 

ps 

5 

~ 

P 4 
<< 
<< OK 
<x 

x= 


<< 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 


SEQ 0005 





NTATION 
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ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE a TO CLEAR 

ALL FLAGS. ar THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 





FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNT IME SERVICES COMMAND MODE 

IER® INHIBIT ALL ERROR REPORTS 

IBE® INHIBIT AL!. ERROR REPORTS EXCEPT 
FIRST LEVE LEVEL wedest LEVEL tes wot _ 

IXE* inuBst € IT EXIDWED E EAROR AEPOR (THOSE 

PRI DIRECT ar ssars: 10 ciN Cine SORINTER 

PNT PRINT, TEST NUMBER As TEST EXECUTES 

BOE "BELL’* ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDU INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE hls WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL'’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER :BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘CHANGE HW (L) ? 
YOU MUST ANSWER ‘'Y’’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘PRELOADED'' USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “‘Y"', THE RUNTIME SERVICES VILL ASK FOR THE 

OF UNITS (IN DECIMAL). YOU WILL THEN BE *aKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


PARAMETER CODING CALLS 
GPRMA = MSGH1,0,0,0,177777, YES 3RH ADDRESS 
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GPRMD mSGHE.2.0.77 RH TYPE 
GPRMD MSGHS.4. 07700: RH VECTOR ADDRESS 
GPRMD ree 1604 { Fgh ee [NUMBER FO ARRAYS 
GPRML  MSGHS. :DRIVE OPTIONS 
GPRMD msGie. 1 a 5. 7,YES [DRIVE NUNBER 
GPRML ves” [PARITY DISABLED 
PARAMETER CODING MESSAGES 
MSGH1: .ASCIZ ¥ 
mse: : Clg 71S RH AN *70° OR 91127 
MSGH4: _ASCI ? 
MSGHS: . 
MSGH6: . 


/NUPBER OF ARRAY PODULES?/ 
71S DRIVE OPTION AN ML11A?/ 
ASC /ML-11 DRIVE NUMBER?/ 
MSGH7: .ASCIZ /IS PARITY DISABLED?/ 


UNIT 
RH re? ? <CR> 
IS RH AN 70" on’ ® * <0> ? <CR> 
RH VECTOR ADDRESS D> 204 7? <CR> 
ARRAYS MODULES ? <D> 16 ? 14 <CR> 
IS DRIVE OPTION AN MLIIA ? <l> Y ? <CR> 
VE NUMBE <> 0 ? <CR> 


ML-11 DRI R ? 
IS PARITY DISABLED ? <L> N ? <CR> 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AETER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE TERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. | YOU WILL BE PROMPTED BY CHANGE Sw CL) 2 

) ANY PARAMETERS BY T 


vPING- 
QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


PARAMETER CODING CALLS 

GPRAL MSGS1.0,1,NO :PRINT THE DRIVE SERIAL NUMBER 
PARAMETER CODING MESSAGES 

MSG1: .ASCIZ /PRINT SERIAL NO.?/ 

SAMPLE DIALOGE 





- 
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PRINT SERIAL NO. ? <L> N? Y <CR> 


2.6 EXTENDED P-TABLE DIALOGUE 


LD THI Ss 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEV 
A MASS ST TH OR 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFIC ENT METHOD, SUPPOSE YOU 
A FICTIONAL DEVICE, THE XY11. SUPPOSE 
CONTROL MODULE wf 


4 TH 
te UNITS ARE DESCRIBED BY THE 
+ ONE HARDWARE oats | THAT 
@ FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
Ti. BUILD A TABLE FOR OnE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # = ? 1<CR> 
Q-FACTOR (0) 1? O<CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) * — 


Q-FACTOR (C) 0 ? 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) "2 4<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 6 

CSR ADDRESS (0) ?  160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
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Q-FACTOR (0) 0 ? 1<CR> 


CSR ADDRESS ( it a 
SUB-DEVICE # (0) ? 
Q-FACTOR (0) 1 ? 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN 
a tk ue IS GIVEN. BE CAREFUL WHEN SPECIFYING 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO_NOT VARY SIGNIFICANTLY FROM UNIT 6 UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
"Shy BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


17 

Sh ADDRESS ( 160000<CR> 
SEB-DEVICE a (0) in 6,7<CR> 
Q-FACTOR (0) 0? 1<Ci> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
P, THROUGH QUESTIONS THE FIRST 


ONE PASS THE IONS. _IN PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AMD Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. SECOND OUR ENTRIES WERE 
BUILT. THIS IS Be FOUR ICES WERE SPECIFIED. THE 
CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE wars eee THE SECOND. IN THIS CASE, SUB-DEVICES 
WERE SPECIFIED. (IF THe ICE WERE SPECIFIED 
Bi Abone Sse INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE_ON AN EVEN BOUNDARY.) THE COR ADDRESSES AWD G=FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 1 AND _0 RESPECTIVELY 


SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 
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UNIT 1 

CSR ADDRESS (0) ? 1 CR> 
SUB-DEVICE # (0) ? <CR> 
Q-FACTOR (0) 0 ? 0,1,0...,.1,1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START=UP PROCEDURE (XXDP+) 
TO START<UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE °R NAME’’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE ‘‘START’’ 

5. ANSWER THE “‘CHANGE Hw’’ QUESTION WITH ‘'Y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE “CHANGE Sw’* QUESTION WITH ‘W’" 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES vag Bo at en A od 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL E jes} SAGES 
ARE ALWAYS PRINTED UNLESS THE a, FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE Is OF THE FORA: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


-WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N nS Lae eer IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UMLESS 
THE ‘“IER’’ OR “"IBR’’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
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SUCH AS REGISTER CONTENTS or R SPOD/BAD Dé DATA. + aches ARE ALWAYS 
PRINTED UNLESS THe IER’ LAGS ARE SET (SECTION 2.3). 
THESE MESSAGES phinréo AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY wASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGES ARE HANDLED VIA A DICTIONARY STRUCTURE. 


WORDS AND PHRASES Bary MULTIPLY REFERENCED USING ONLY 
ONE COPY OF THE WORD OR PHRASE IN CORE. 


THIS PERMITS EXTENSIVE ERROR MESSAGE PRINTING AT MINIMAL 
STORAGE REQUIREMENTS. 


THE FOLLOWING DEMONSTRATES TYPICAL ERROR MESSAGES: 

ML11 DVC FTL ERR C0077 ON UNIT 07 TST 027 SUB 002 PC: 050432 
EXCESSIVE DATA ERRORS DURING INITIAL ARR RD_WRT 

ML11 DVC FTL ERR 00112 ON UNIT 03 TST 037 SUB 000 PC: 056466 
ASYNCHRONOUS MODULE FAILURE 

ARRAY ADRS MULTIPLEXER FAILURE 

FAILED AT DSA: 


3.2.1 ERROR NUMBER DEFINITION 


ERROR NO. FAILING LOGIC 

1 DRIVE DID NOT RESPOND 
WITHIN 1.5 US 

2 DSA REG READ/WRITE ERROR 
DURING DRIVE SEL TEST 

3 UNIQUE DRIVE SELECTION 
ERROR 

4 ML REGISTER READ WRITE 
ONES/ZEROES ERROR 

5 ML REGISTER READ WRITE 
ONES/ZEROES ERROR 

6 ML REGISTER INITIALIZATION 
ERROR 

7 CONTROL BUS BAD PARITY 
NOT DETECTED 

8 CONTROL BUS GOOD PARITY 


NOT DETECTED. 
9 CONTROL BUS BAD PARITY 





SEQ 0011 
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GENERATED. 
ARRAY SIZING LOGIC ERROR 


GO BIT NOT CLR AFTER 
NOOP FUNCTION 


ILF BIT SET DURING NOOP 
FUNCTION 

OPI BIT SET DURING NOOP 
FUNCTION 

GO BIT NOT eS DURING WRITE 


CHECK FUNCTI 


DRY BIT NOT CLEAR DURING 
WRITE CHECK FUNCTION 


DRY BIT SET WHEN GO SET 
DURING WRITE CHECK FUNCTION 


ILF SET DURING WRITE 
CHECK FUNCTION 


OPI BIT SET DURING WRITE 
CHECK FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION ‘ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION *SYNC FUNCTION’ 


DRY BIT NOT SET AFTER WRITE 

CHECK FUNCTION 

GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION "ASYNC FAILURE‘ 


GO BIT NOT CLEAR AFTER WRITE 
CHECK FUNCTION °SYNC FAILURE’ 


GO BIT NOT SET DURING WRITE 
FUNCTION 


DRY BIT CLEAR WITH GO CLEAR 
DURING WRITE FUNCTION. 


DRY BIT SET WITH GO BIT 
DURING WRITE FUNCTION. 


ILF BIT SET DURING WRITE 
FUNCTION 


OPI BIT SET DURING WRITE FUNCTION 


SEQ 0012 
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29 GO BIT NOT CLEAR AFTER WRITE 
FUNCTION “ASYNC FAILURE’ 

30 GO BIT NOT - AFTER WRITE 
FUNCTION *SYNC FAILURE’ 

31 DRY BIT NOT SET AFTER WRITE 
FUNCTION. 

32 GO BIT NOT CLEAR AFTER WRITE 
FUNCTION ‘ASYNC FAILURE’ 

33 GO BIT NOT CLEAR AFTER WRITE 
FUNCTION “ASYNC FAILURE’ 

oa GO BIT NOT SET DURING READ 
FUNCTION. 

35 DRY BIT SET WHILE GO CLEAR 
DURING READ FUNCTION. 

36 DRY BIT SET WHILE GO SET 
DURING READ FUNCTION. 

37 ILF BIT SET DURING READ 
FUNCTION. 

38 OPI BIT SET DURING READ 
FUNCTION 

39 GO BIT NOT CLEAR AFTER READ 
FUNCTION °ASYNC FAILURE’ 

40 GO BIT NOT CLEAR AFTER READ 
FUNCTION ‘SYNC FAILURE’ 

41 DRY BIT NOT SET AFTER READ 
FUNCTION 

42 GO BIT NOT CLEAR AFTER READ 
FUNCTION "ASYNC FAILURE‘ 

43 GO BIT NOT CLEAR AFTER READ 
FUNCTION ‘SYNC FAILURE’ 

4% GO BIT NOT CLEAR AFTER 
CLEAR FUNCTION 

45 DRY BIT SET WHILE GO SET 
DURING CLEAR FUNCTION 

46 DRY BIT NOT SET AFTER 
CLEAR FUNCTION. 

47 ILF BIT SET DURING CLEAR 
FUNCTION 
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OPI BIT SET DURING CLEAR 
FUNCTION 

COMPOSITE ERROR BIT NOT 
SET AFTER MLER BITS SET 
ATA BIT SETTING ERROR 
ATTN BIT SETTING ERROR 


ATTN BIT NOT a peg BY 
MLCS1 NOOP FUNCTI 


ATA_BIT NOT CLEAR AFTER 
WRITING A ONE TO IT 


WRITING A ONE TO OTHER 
DRIVES ATA BIT CLEARED 
THIS DRIVES ATA BIT 


GO BIT NOT CLEARED AFTER 
SEARCH FUNCTION 

ILF BIT SET DURING SEARCH 
FUNCTION 


NO-OP FUNCTION DID NOT 
a THE ATA BIT AFTER BEING 


ATA BIT NOT SET AFTER 
SEARCH FUNCTION 


OPI BIT SET DURING SEARCH 
FUNCTION AT PRESENT ARRAYS 


ATA BIT SET AFTER SEARCH 
AT NOT PRESENT ARRAYS. 
GO BIT NOT CLEAR AFTER 
READ~IN-PRESET FUNCTION 


ILF BIT SET DURING 
READ-IN-SET FUNCTION 


OPI BIT SET DURING 
READ~IN-PRESET FUNCTION 


UV BIT NOT SET AFTER 
READ-IN-PRESET 

GO BIT NOT CLEARED 
AFTER ILLEGAL FUNCTION 


ILLEGAL tenn NOT 
DETECTED 
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OPI BIT SET WITH ILLEGAL 
FUNCTION 


RAR BIT NOT SET AFTER 
MODIFYING REG WITH FUNCTION 
IN PROGRESS. 


MEMORY ARRAY PROM 
CHECK SUM ERRORS DURING 
INITIAL PROM READS 


NIBBLE OFF SET COUNTS 
GREATER TH4aN 14 DETECTED. 


UNS BIT SET WITH GOOD 
UV DATA 

UNS BIT SET WITH GOOD 
UV DATA 

UNS BIT NOT SET WITH BAD 
UV DATA 

UNS BIT NOT SET WITH BAD 
UV DATA 


MEMORY ARRAY PROM ROW/ 
COL DATA ORING ERROR 


36 exCEED E THRESHOLD OF 
ge DURING 
TIAL ARRAY READ/WRITE 


UNIQUE PROM SELECTION 
ERROR 


FAILURE TO FIND GOOD ROW 
DURING READ ah ARRAY 
WITH PROM DATA 


MEMORY ARRAY TIMING AND 
CONTROL FAILURE TO REFRESH 
MEMORY 


DATA ERRORS DETECTED AT 
LAST BLOCK DURING ADDRESSES 
COUNTER TEST. (TEST ABORTED) 


ADDRESS COUNTER ERROR 


UNIQUE MEMORY ARRAY 
MODULE SELECTION FAILURE 


ALL BITS IN ALL NIBBLES 
TESTED DURING SEQUENCER 
EXISTENCE TEST WERE IN 


SEQ 0015 | 
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ERROR (FAIL UNIT) | 
85 phe peas FAILURE. SOME 
os IN NIBBLES TESTED WERE 


N ERROR (CONTINUE TESTING) 
SYNC _BUS DATA BIT 
WRITE PATH CONTINUITY 
FAILURE 


87 SYNC BUS DATA BIT 
READ PATH CONTINUITY 
FAILURE. 


88 RAM BUS ADRS COUNTER 
FAILURE TO LOAD/UNLOAD 
SKIP_RAM DURING WRITE 
FUNCTION 


89 RAM BUS ADRS COUNTER 
FAILURE TO LOAD/UNLOAD 
SKIP_RAM DURING READ 
FUNCTION. 


90 SYNC DATA ~~ vas PATH 
UNIQUE DATA BiT 
Bos as (ALL ONES NIBBLE 


91 SYNC DATA BUS WRITE 
PATH UNIQUE DATA BIT 
FAILURE (SHIFTED BIT 
NIBBLE PATTERN) 


92 SYNC DATA BUS WRITE 
PATH UNIQUE DATA BIT 
FAILURE (ALL ONES NIBBLE 
PATTERN) 

93 SYNC DATA BUS READ PATH 
UNIQUE DATA BIT FAILURE 


94 NIBBLE OFF SET 
COUNTERS FAILURE 


95 CS1 FUNCTION ABORT 
FAILURE DURING CLASS 
ERROR. 


‘a’ 

96 CS1 FUNCTION ABORT 
FAILURE DURING CLASS 
*B’ ERROR 


97 L8T BIT SET BEFORE 
A LAST BLOCK TRANSFER 


98 DSA REGISTER INCREMENT 
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USER DOCUMENTATION SEQ 0017 


FAILURE DURING NON LAST 
BLOCK TRANSFERS. 
9 LBT BIT NOT CLEAR 
AFTER LOADING DSA REG 
100 LBT BIT NOT SET 
AFTER A LAST BLOCK 
TRANSFER 
101 DSA REGISTER 
FAIL 
AFTER A LAST BLOCK 
TRANSFER 


102 IAE BIT NOT SET AT 
INVALID SECTOR ADDRESSES 
103 AOE BIT NOT SET 
AFTER ADDRESS OVERFLOW 
° 104 SC BIT NOT AFTER 
CS1 FUNCTION ADORT 
105 GOOD DATA BUS 
PARITY NOT DETECTED 
106 GOOD DATA BUS 
PARITY NOT GENERATED 
107 UNS BIT SET AFTER 
WRITING TO A SECTOR 
DURING PROM DATA 
TEST 
108 UNS BIT NOT SET WITH 
BAD UV DATA 
109 WCE BIT SET DURING 
MBUS WRITE/READ 
FUNCTION TROUBLE SHOOTING 
LOOP TEST 
110 UNIQUE REGISTER 
SELECTION TEST FAILURE 
:111 FAILURE TO FIND GOOD 
MOS RAM ROW NG 
ARRAY ADRS MUX TEST 
CINTERMEDIATE DIAG MSG) 
112 


UNIQUE ARRAY MODULE 
ROW/COL ADDRESSING 
FAILURE 


113 DRIVE TYPE REGISTER VALUE 
WAS NOT CORRECT 
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114 


115 


116 


117 


118 
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TRE BIT SET UNEXPECTEDLY 
DURING A WRITE CHECK TRANSFER 
CINTERMEDIATE DIAG ERROR) 
TRE BIT SET UNEXPECTEDLY 
DURING A WRITE TRANSFER 
CINTERMEDIATE DIAG ERROR) 
TRE BIT SET UNEXPECTEDLY 

a ReaD R 
CINTERMEDIATE DIAG ERROR) 
TRE BIT DID NOT SET AFTER 
A_REGISTER MODIFICATION ERROR 
(EXCEPTION WAS NOT ASSERTED) 


DATA DIAGNOSTIC REGISTER D1 D2 E2 
INITIALIZATION ERRORS 


CONTROLLER FAILURE TO RESPOND 
70 EXISTANCE PROBE 


NED BIT SET DURING MASS BUS TO 
UNIBUS COMMUNICATION PROBE 


ate ott REGISTER D1 D2 E2 
ONE'S / ZEROE’S READ WRITE ERRORS 


DATA_DIAGNOSTIC REGISTER D1 D2 E2 
SHIFTING 1°S AND 0°S READ WRITE ERRORS 


ECC HARD ERROR BIT NOT SET WHEN 
UNCORRECTABLE ECC ERRORS WERE READ 


ECC ERROR REGISTER FAILURE TO LATCH 
FAILING ERROR CORRECTION INFORMATION 


ECC ERROR REGISTER FAILURE TO CLEAR 


ECC ERROR LOCATION REGISTER FAILED 
TO CLOCK IN DSA ADDRESS 


ECC ERROR LOCATION REGISTER DATA 
BIT ERRORS 

ECC_ERROR LOCATION REGISTER 
INITIALIZATION ERRORS 

ai ~ ERROR BIT FAILED TO SET 
DATA CHECK ERROR BIT FAILED TO 
SET / NOT SET 


CRC DATA BUS FAILURE. 
BIT CONTINUITY / UNIQUENESS ERRORS 


SEQ 0018 
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132 UNIQUE NIBBLE CRC GENERATION CODE 
FAILURES 

133 UNIQUE WORD CRC GENERATION CODE 
FAILURES 

13%4 CORRECTABLE ERROR SYNDRONE DECODE 
FAILURE. FAILURE TO COMPLIMENT 
EXPECTED FAILING BIT(S) 

135 CORRECTABLE ERROR SYNDRONE DECODE 
FAILURE. 'JNEXPECTED BIT(S) FOUND 
COMPLIMENTED 

136 ECH OR UNC BIT NOT SET DURING READS 
WITH ECC ERRORS IN CHANNEL > 35 

137 ERROR CORRECTION WAS NOT INHIBITED 
DURING UNCORRECTABLE ECC E ° 
UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED 

138 ECH OR UNC BIT NOT SET WHEN MULTIPLE 
CHANNEL ERRORS WERE READ 

139 ERROR CORRECTION WAS NOT INHIBITED 
DURING UNCORRECTABLE ECC ERROR. 
UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED 

140 ECC ty rx TO DETECT AND CORRECT 
SINGLE BIT CHANNEL ERRORS 

141 ECC FAILURE TO DETECT AND CORRECT 
MULTIPLE BIT CHANNEL ERRORS 


4.0 PERFORMANCE AND PROGRESS REPORTS 
707 THE END OF eS maar RePor PASS COUNT IS GIVEN ALONG WITH THE 


NUMBER OF 
alt a SUITCH CAN BE USED TO —S HOW OFTEN THE END 
OF P ASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


aS 
Ba 


5.0 DEVICE INFORMATION TABLES 
HARDWARE DEFAULT PTABLE 


-WORD 176400 ;RH ADDRESS 

-WORD y. :RH TYPE 

WORD 3RH VECTOR Ss 

-WORD 16. SNUMBER OF ARRAY MODULES 

-WORD 1 71S DRVE OPTION MLIIA, 1=16K, 0=64K 
-WORD O sML-11 DRIVE 

-WORD O 71S PARITY DISABLED. 1=YES. O=NO 


SOFTWARE DEFAULT TABLE 





“4 4 SINCE THE DIAGNOSTIC WAS STARTED. 


SEQ 0019 
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USER DOCUMENTATION SEQ 0020 
PRSN: .WORD 0 sPRINT SERIAL NUMBER, 1=YES, 0=NO 
6.0 TEST SUMMARIES 
TST1. MASS BUS READY 
TEST THE RH CONTROLLER FOR EXISTANCE 
TST2. MASS BUS HANDSHAKE 
TEST MASS BUS =--> UNIBUS COMMUNI “ATIONS 
TST3. DRIVE PRESENT 
TEST TO SEE IF THE DRIVE UNDER TEST EXIST. 
TST4. DRIVE SELECTION 
SEE IF SELECTING OTHER DRIVES ON RH EFFECTS DRIVE UNDER TEST. 
TSTS. READ WRITE REGISTER ONE'S ZERO'S TEST 
TEST REGISTERS READ WRITE CAPABILITY AND UNIQUENESS 
TST6. READ WRITE REGISTER SHIFTING ONE'S AND ZEROES 
TEST REGISTERS FOR UNIQUE DATA BITS. 
TST7. REGISTER INITIALIZATION 
TEST REGISTERS FOR CORRECT INIT DATA. 
TST8 REGISTER SELECTION TEST 
TEST FOR UNIQUE REGISTER SELECTION 
TST9. PRINT DRIVE SERIAL NUMBER 
PRINT or OF MLSN IF THE SOFTWARE QUESTION WAS 


TST10. C=BUS PARITY 
TEST IF DRIVE CAN DETECT BAD PARITY ON C-BUS AND GENERATE 
GOOD PARITY. 


TST11. MEMORY SIZING 


SEE IF MEMORY SIZING LOGIC DETECTS AND RECORD CORRECT NUMBER 
OF ARRAYS PRESENT. 


TST12. NO-OP FUNCTION 
SEE IF A NO-OP FUNCTION CAN BE EXECUTED. 
TST13. WRITE CHECK FUNCTION 
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USER DOCUMENTATION SEQ 0021 
SEE IF A WRITE CHECK FUNCTION CAUSES THE DRIVE TO HANG. 
TST14. WRITE FUNCTION 
SEE IF A WRITE FUNCTION CAUSES THE DRIVE TO HANG. 
TST15. READ FUNCTION 
SEE IF A READ FUNCTION CAUSES THE DRIVE TO HANG. 
TST16. CLEAR FUNCTION 
SEE IF A CLEAR FUNCTION CAN BE EXECUTED. 
TST17. DIAGNOSTIC REGISTER READ WRITE 
TEST THE DIAGNOSTIC REGISTERS FOR 
S/0°S , SHIFTING 1°S/0°S AND 
INITIALIZATION 
TST18. COMPOSITE ERROR BIT TEST 
SEE IF EACH INDIVIDUAL ERROR BIT IN MLER CAUSES A COMPOSITE 


TST19. ATA BIT 
TEST IF THE ATA BIT CAN BE SET AND CLEARED. 
TST20. SEARCH FUNCTION 
- IF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRA- 


. TST21. READ IN PRESET 
TEST IF A READ IN PRESET FUNCTION SETS VOL V H. 
TST22. ILLEGAL FUNCTION 


= aA WRITING AN ILLEGAL FUNCTION TO CS1 CAN BE DETECTED AND 
T A TRANSFER IS NOT INITIATED. 


TST23. REGISTER MODIFICATION REFUSED 
TEST TO SEE IF WRITING TO SPECIFIC REGISTERS ARE ABORTED 
WHILE THE DRIVE IS ACTIVE. SEE IF WRITING TO NON-SPECIFIC 
REGISTERS ARE ALLOWED WHILE DRIVE IS ACTIVE. 

TST24. INITIAL PROM TEST 
TEST PROMS FOR EXISTENCE. 


TST25. PROM ‘OR’ FUNCTION TEST 


TEST THE PROM DATA ORING FUNC 
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TST26. UV ERROR TEST 


TST27. 


TST28. 


TST29. 


TST30. 


TST31. 


TST32. 


TST33. 


TST34. 


TST35. 


TST36. 


TST37. 


M24 ABILITY OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM 


INITIAL ARRAY TEST 

TEST ARRAY TIMING AND CONTROLFOR EXISTENCE. 

PROM SELECTION TEST 

TEST FOR UNIQUE PROM SELECTION. 

READ WRITE MEMORY ARRAY WITH PROM DATA (DIAG MODE) 

SEE IF MEMORY CAN BE WRITTEN AND READ. 

ALSO FIND ERROR FREE BLOCK OF MEMORY FOR FUTURE TESTS. 
REFRESH TIMING 

TEST TO SEE IF MEMORY CAN BE REFRESHED. 


ADDRESS COUNTER 


TEST THE ADDRESS COUNTER FOR ABILITY TO COUNT THROUGH ALL 
POSSIBLE MEMORY ADDRESSES. 


ARRAY MODULE SELECTION 

TEST FOR UNIQUE ARRAY MODULE SELECTION 
SEQUENCER EXISTENCE TEST 

TEST TO SEE IF BASIC SEQUENCER TIMING EXISTS. 
SYNC DATA BUS CONTINUITY/WRITE PATH 


TEST SYNCHRONOUS DATA BUS WRITE PATH FOR CONTINUITY BY READ- 
ING WRITING ONE'S AND ZERO'S. 


SYNC DATA BUS CONTINUITY/READ PATH 


TEST SYNCHRONOUS DATA BUS READ PATH FOR CONTINUITY BY READING 
WRITING ONE'S AND ZEROES. 


RAM-BUS ADDRESS COUNTER/WRITE PATH 


TEST ABILITY OF THE RAM-BUS ADDRESS COUNTERS TO LOAD/UNLOAD 
THE SKIP DURING WRITE FUNCTIONS. 


RAM BUS ADRS COUNTER/READ PATH 


oe, ABILITY OF RAM/BUS ADRS COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS. 


SEQ 0022 
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TST38. 


TST39. 


TST40. 


TST41. 


TST42. 


TST43. 


TST44. 


TST45. 


TST46. 


TST47. 


TST48. 


TST49. 


TST5O. 


x 
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SYNC DATA BUS BIT UNIQUENESS/WRITE PATH 


TEST SYNCHRONOUS DATA BUS FOR DATA BIT UNIQUENESS BY WRITING 
SHIFTING PATTERNS OF ONE'S AND ZERO'S TO THE ML. 


SYNC DAT BUS BIT UNIQUENESS/READ PATH 


TEST SYNCHRONOUS DATA BUS READ PATH FOR DATA BIT UNIQUENESS 
BY WRITING SHIFTING "PATTERNS OF ONES AND ZEROES TO THE 


ARRAY ADDRESS MUX 
TEST FOR UNIQUE ROW AND COLUMN ADDRESSING 
NIBBLE OFFSET 


TEST NIBBLE OFFSET COUNTERS TO COUNT TO 14 NIBBLE DATA TO BE 
SHIFTED ON DETECTION OF BAD NIBBLES. 


CS1 FUNCTION ABORT 
SEE IF A CLASS °B’ ERROR ABORTS A FUNCTION WHILE IN PROGRESS. 


SEE IF A CLASS*A’® ERROR IS DETECTED BUT FUNCTION IS ALLOWED 
TO COMPLETE. 


LAST BLOCK INDICATOR 


‘ 


TEST THE LAST BLOCK INDICATOR BIT FOR NOT SETTING BELOW THE 
LAST AND SETTING AND CLRING AT THE LAST BLOCK 


INVALID ADDRESS TEST 

FOR ALL ILLEGAL DSA ADDRESSES READ THE IAE BIT SET. 

ADDRESS OVERFLOW 

TEST FOR AOE ON TRANSFERS WHICH EXTEND BEYOND THE LAST BLOCK. 
SYNC BUS PARITY 

TEST FOR BAD PARITY DETECTION AND GOOD PARITY GENERATION. 
WRITE READ MEMORY ARRAY (M-BUS BLOCK MODE) 

WRITE READ MEMORY VIA M-BUS BLOCK WITH MINIMUM OVERHEAD 


TEST THE CRC DATA BUS BETWEEN CRC 
GENERATORS AND THE CRC DATA 
MUX FOR CONTINUITY AND BIT UNIQUENESS 


TEST m% CODES GENERATED FOR ONE CRC 
GROUP (52 UNIQUE NIBBLES) 


TEST CRC CODES GENERATED FOR ONE 


SEQ 0023 
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TSTS1. 


TSTS2. 


TST53. 


TSTS4 ad 


TSTSS. 


TST56. 


TST57. 


TST58. 


TST59. 


TST60. 
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CRC GROUP (13 UNIBUS WORDS) 


TEST SYNDRONE DECODE AND ERROR 
CORRECTION TO DECODE AND CORRECT 
SINGLE BIT AND MULTIPLE BIT 

L ERRORS 


TEST SYNDRONE DECODE TO DETECT BUT 
= CORRECT UNCORRECTABLE CHANNEL 


TEST SYNDRONE DECODE TO DETECT BUT NOT 
aa SY UNCORRECTABLE MULTIPLE CHANNEL 


TEST SYNDRONE GENERATION, SYNDRONE DECODE 
“ ERROR CORRECTION FOR SIGLE BIT CHANNEL 


- SYNDRONE GENERATION, SYNDRONE DECODE 
AND ERROR CORRECTION FOR MULTIPLE BIT 
CHANNEL ERRORS 


TEST THE ECC ERROR REGISTER FOR 
CLEARING AND LATCHING OF ECC ERROR 
INFORMATION ON DETECTION OF ECC ERRORS 


TEST THE ECC ERROR LOCATION REGISTER FOR 
CLOCKING, BIT UNIQUENESS, CLEARING AND 
LATCHING 

VIA ECC_DM AND ECC DIS y 2 THE ECH 

BIT FORSETTING AND NOT SETTING 


VIA ECC_EN, ECC_DM AND ECC_DIS TEST 
THE DCK "BIT FOR SETTING AND NOT SETTING 


PROM DATA TEST 


VERIFY THAT CHECK SUM VALUES FOR ALL PROM LOCATIONS ARE CORRECT. 


S*Q 0024 
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SBTTL PROGRAM HEADER AND TABLES 
-ENABL ABS,AMA 
a = 


s++ 


THE PROGRAM HEADER IS y* INTERFACE BETWEEN 
_THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER AL!. 
HEADER ML11,A,0,1800..0 


NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 
DEVTYP <4L-11> 


TEST DESCRIPTION 
DESCRIPT <%-11 LOGIC TEST> 


THE GLOBAL ERROR TABLE (INFORMATION 
USED IN A CALL TO THE MACRO ‘ERROR’*) 


ERRTYP -WORD 0 
ERRNBR: : -WORD O 
ERRMSG: : -WORD O 
ERRBLK: : -WORD O 


++ 
Hod DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 


T IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 60 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
: THE TEST-DEVICE oy ge Abe F " a TRUCTURE OF a 5 rs my 


; IS IDENTICAL TO Ti RUCTURE OF THE HARDWARE ABLE 
;_AND IS USED AS A STERPLATE FOR BUILDING THE P-TABLES. 


SEQ 0025 
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> 
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002374 


BGNSW = SFPTBL 


+ 


1 
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1 
3 
1 
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1 
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1 
1 
1 
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i) 
1 
1 
1 
1 
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OF Y MODULE 
IS DRVE OPTION aah 


THe ty SOFTWARE P-TABLE CONTAINS VARI 
OPERATIONAL PARAMETERS. 


>? PROGRAM AS THESE 
3 UP “34 ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN 


ISABLED, 


$s 
1=16K, 0=64 
1=VES, O=NO 


DATA USED BY THE 
TERS ARE SET 


sPRINT SERIAL NUMBER, 1=YES, O=NO 


SEQ 0026 
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111 


+ 
+ 


oa TER CODING SECTION CONTAINS 


3 
a 
3 


; MACROS ARE NOT EXECUT! I 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUC 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNI CATIONS 
; WITH THE OPERATOR. 


is 
: 
aS 
& 
: 


11, af es 


20:78, 177777. YES 
6:3. 77 wert of 6.,VE 


EEE 


MSGHS: .AS 71S DRIVE OPTION 1A?/ 

MSGH6: .AS /ML-11 DRIVE NUMBER?/ 

MSGH7: .ASC 71S PARITY DISABLED?/ 

p++ 

3 THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE CUTED AS MACHINE INSTRUCTIONS 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
2 MAC SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


__BGNSFT 


GPRML = MSGS1,0,1.YES 
-EVEN 


ENDSFT 


MSGS1: zPRINT DRIVE SERIAL NUMBER? 


eASCIZ /PRINT SERIAL NO.?/ 
EVEN 





Sd 


a ¥ 
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PROGRAM HEADER AND TABLES SEQ 0028 


34+ 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 


sOFFSET INTO P-TABLE FOR CSR ADDRESS 
sOFFSET INTO P=-TABLE FOR MASSBUS ADDRESS 
sOFFSET INTO P-TABLE FOR DRIVE NUMBER 


8 
Pa. 


SPATCH:: 


Re 
a 


: 
o 
; 


sera 
: 
RRS 





Ww 
VW 
Nm 
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MISCELLANEOUS CODING SECTION SEQ 0029 


-SBTTL MISCELLANEOUS CODING SECTI 
m3 17-Oct=1 71346 we Ret as is wih 


; Routine Size: 1 word 
; Maximum stack depth per invocation: 0 words 


1 

6 

f A: <NEALE>AL 

9; 0001 MODULE ML3 = 

10 ; BEGIN 

2: 0004 REQUIRE *MACRO.REQ" 
ye OU uss 
15; 0719 !+ 
16; 0 ' THE REPORT CODING SECTION CONTAINS THE 

i 4 : 1 Msg aen ¥ CALLS THAT GENERATE STATISTICAL REPORTS. 

19 : 072 
20 ; 0724 BGNRPT; 
21 ; 0725 RETURN; 
22 ; 0726 ENDRPT: 
rs 
27 | 
3 004152 000207 LRPT: RTS PC : 0716 
% ; Routine Size: 1 word | 
33 3 Maximum stack depth per invocation: 0 words | 
45 | 
49 004154 004767 177772 LSRPT:: JSR PC,LRPT ; 0725 
50 004160 104425 TRAP 25 | 
21 004162 000207 RTS PC | 
53 3; Routine Size: 4 words 
z3 > Maximum stack depth per invocation: 0 words 
63 
6: 0727 
65 
66 ; 0728 !+ 
67 ;: 0 i THE AUTODROP C , 1s EXECUTED IMMEDIATELY AFTER THE INITIALIZE 
68 ; 0 ' CODE IF THE °' FLAG WAS SET. THE UNIT(S) UNDER TEST ARE 
69 ;: 0731 ! CHECKED TO SEE a THEY WILL ae. THOSE THAT DON'T ARE IMMEDIATELY 

0 : oe ; DROPPED FROM TESTING. ISSUE *DODU"’ FOR THOSE THA aT DON'T RESPOND. 
re ; 0 ' 
3 0735 BGNAUTO; 

74; 0736 RETURN; 
je) ; 0737 ENDAUTO; 
4 004164 000207 LAUTO: RTS PC 3 0726 
85 
86 
91 
92 
96 
00 


— 


004166 004767 177772 LSAUTO: : JSR PC,LAUTO 3 0736 
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101 oS, 104461 TRAP 61 

16 004174 000207 RTS PC 

104 ; Routine Size: 4 words 

13 : Maximum stack depth per invocation: 0 words 
111 ; 0738 

"6 sM3 17-Oct-1980 11:31:46 
17 3 29-Sep-1980 10:13:18 
115 

116 ; 0739 1+ 

117 ; 0740 ! THE DROP<UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
118 ; 0741 ! TO NO LONGER BE TESTED. 

119 ; ores i- 

120 ; 074 

121; 0744 BGNDU; 

138 3 0745 RETURN; 

is 3 0746 ENDDU; 

13! 004176 000207 LDU: RTS PC $ 
133 ; Routine Size: 1 word 

is 3; Maximum stack depth per invocation: 0 words 
i 

148 004200 004767 177772 L$DU:: JSR PC, LDU $ 
149 004204 104453 TRAP 53 

1” 004206 000207 RTS PC 

152 3; Routine Size: 4 words 

133 + Maximum stack depth per invocation: 0 words 
159 

160 ; 0747 

161 

166 3 0748 !+ 

165 ; - 0749 ! THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
164 ; 0750 ! TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
165 ; 0751 ! TO THE TEST CYCLE. 

166 ; 0752 !- 

167 ;:—.3 17-Oct-1980 11:31:46 
168 3 29-Sep-1980 10:135.18 
170 ; 0753 

171 ; 0754 BGNAU: 

172 ; 0755 RETURN; 

: s 0756 ENDAU; 

by 004210 000207 LAU: RTS PC 3 
183 ; Routine Size: 1 word 

+3 + Maximum stack depth per invocation: 0 words 
190 

194 


=| | 


TOPS-20 Bliss-16 ie wih y 
PA: <NEALEOML3.8L1.2 (1) 
0737 
| 
0745 
} 
TOPS-20 BLi ss-16 bs wit 
PA:<NEALEDML3.BLI.2 ( 
0746 


eee 





F 
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MISCELLANEOUS CODING SECTION SEQ 0031 | 
198 76? 177772 LSAU:: JSR PC,LAU $ 0755 
19 SRE. ere i 

, RTS PC 
3; Routine Size: 4 words 
t Maximum stack depth per invocation: 0 words 
10 ; 0757 END 
1: 75 
gié 3 0759 ELUDOM 
217 
218 
219 
220 7ML3 17-Oct-1980 11:31:46 T 
221 3 2- 1980 10:13:18 eR 
222 
555 | 
224 
225 3: Size: 20 code + 0 data words 
226 ; Run Time 00:01.9 | 
227 5 mee ° Time: 00:07.1 
228 3; Memor 7% 12 pages 
229 : Compi Bang Complete 
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MISCELLANEOUS CODING SECTION SEQ 0032 
6 IML4 3 —Dec-1980 09:24:31 TOPS=-20 Bliss-16 v2(212) 
ci —Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BLI.2 (1) 

° ; 0001 MODULE ML4 = 

19 : S008 | 

ig : 0004 | PRETTY BLF COMMANDS 

Ri BB 

14: i <BLF /NOERROR> 

15: 0007 '<BLF/LOWERCASE_KEY> 

16: 0008 

7: 0009 | REQUIRE 

18 : 0010 

19 : 0011 

20 : o012 require "BLSMAC.REQ’: 'BLISS INTERFACE MODULE 
22: 1497! 

23: 1498 | CONSTANT LITERALS 

24: 1499 

25: 1500 

26 : 1501 Literal 

27 : 1508 ONE = 1 ‘DATA BIT OF ONE 

28 ; 150 = {0°177777', iDATA PATTERN OF ONES 

29: 1504 ZERO = 0, DATA BIT OF ZERO 

30 : 1505 ZEROES = 0, iDATA PATTERN OF ZEROES 

31: 1506 NUM_OF_REG = 22, INUMBER OF BLOCKS IN GLOBAL STORAGE 'ML-REG’ 
4 : 1307 FIECD_ si7 = 4, ‘FIELD SIZ FOR FIELD DECLARATIONS "WORD_MAP’ 
% : 1509 imucst FUNCTION CODES 

35 : 1510 i 

% : 1511 NOOP = 1, 'NOOP FUNCTION 

37 : 131 DRV_CLR = %o'11° iDRIVE CLEAR FUNCTION 

38; 151 RD_IN PRE = %o'21', 'READ IN PRESET FUNCTION 

39 : 1514 SEARCA = 20°31", i UNCTION 

40 : 1515 WRT = %0°51*, iWRITE CHECK FUNCTION 

41: 1516 write = %0'61", iWRITE FUNCTI 

4¢ : 1317 read = %0'71', iREAD FUNCTION 

44 : 1519 i DELAY ARGUMENTS 

45: 1520 i 

46 : 1521 ONE_US = 1 'ONE MICRO SECOND DELAY 

47 : 136 FRTY_US = 40 iFORTY MICRO SECOND DELA 

48 : 15, TH_US = 2000; iTWO THOUSAND MICRO SECOND DELAY 
49 : 1326 

50 : 1525! 

51: 1306 i FIELD DECLARATIONS 

32 ; 1527 | 

53: 15, 

54: 1529 field 
3 : 1330 WORD _ fur = 'MAPS GLOBAL STORAGE ‘ML_REG’ INTU REGISTER PERSONALITIES 
57: 133¢ REGISTER. ADD = £0. 0. 16, 02. ‘REGISTERS ADDRESS 

58 : 15, FORCE_HI~= cI. , 16. 6). iREGISTERS FORCED HI BITS 
59 : 1534 FORCE~LO = - 0; 16. 0 iREGISTERS FORCED LO BITS 
60 : 1535 = £3, 6, 16. 05 iREGISTERS IGNORE BITS 
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MISCELLANEOUS CODING SECTION SEQ 0033 
IML4 —Dec-1 :26:31  TOPS-20 BLiss-16 v2(212) 
| eS ; Serpe 1980 09.51.22 PACANEALESOL IMLS MCI 

: 1536 tes, 

es ; 1337 NIB_MAP = 'MAPS OWN STORAGE NIB_SAVE INTO TEN FOUR EIT NIBBLES 
° se 

68 : 1539 NIB_O = (0, 0, 4. 0). 'NIBBLE 0 BITS <0: 

69 : 1540 NIB-1 = (0. 4. 4. 0J. iNIBBLE BITS <4: 

70 : 1541 NIB-2 = (0. 8. 4. 0 BBLE ¢ BITS <8:11> 

71 : 134¢ NIB-3 = £0, 12, 4, 03. iNIBEEE BITS <12:15> 

% : 154 NIB-4 = (1. 0, 4. 0]. INIBBLE 4 BITS <16:19> 
: 1544 NIB-5 = (1. 4. 4. OJ. INIBBLE 5 BITS <20: 

7% : 1545 NIB-6 = (1. 8. 4. 0J INIBBLE 6 BITS <24:27> 

75: 1546 NIB-7 = (1. 12, 4, 05, INIBBLE 7 BITS <28:31> 

7% : 1547 NIB_8 = g. 8, 4, 0) iNIBBLE 8 BITS <32:35> 

7? : 1548 NIB_-9 = (2, 12, 3, 05 INIBBLE 9 BITS <36:39> 

78 ; 1549 tes, 

79: 1550 DT1_FLD’= 

80 ;: 1551 set 

81 : 135¢ £05 = (0. 0, 6. 0). 

82 : 155 CO-5 = (0. 6 0) 

83 : 1554 CRU_DATA = (6, 13. 1. 02. 

8 : 1555 SGL~DATA = 9. 1%. 1. o1. 

85 : 1556 UNC"DATA = 

86 ;: 1557 EE_BATA . C0, “. ig. 

87 : 1558 A0-3 = (1, 0. 6. 03: 

88 : 1559 PO-5 6, 03 

89 : 1560 ECA para = = = fi. i2, i, 02. 

90 : 1561 B0_5 = 0.6, 62° 

91; 1562 tes; 

92: 1563 

93: 1564 '!<BLF/PAGE> 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE lt; 
MISCELLANEOUS CODING SECTION SEQ 0034 


95 :M4 -Dec-1980 09:24:31 TOPS-20 BLis =16 v2(212) 
a8 : $ —pee~ 1380 99:54:35 PA: <NEALE 4.8L1.2 (2) 
98: 1565! 

9 : 1 i QWN STORAGE 

100 ; 1567 ! 
101 ; 1568 
4 3 1569 own 
103 ; 1570 NIB_SAVE : block [3] field (NIB_MAP) volatile 

104 : 1571 { STORAGE LOCATION TO SAVE NIBBLE DATA READ DURING DIAG MODE | 
105 ; 137¢ : vector [127] volatile, ISTORES HARDWARE ORED PROM DATA DURING PROM OR FUNC TEST __ 
106 : 15 Pre BIR’: volatile iHARDWARE P-TABLE POINTER 

107 : 1574 oP : volatile, iOPERATORS NUMBER OF ARRAY yjnpyrren 

108 : 1575 ARR_ING : meetin. \ARRAY SELECTION INCREMENT VALUE 

109 : 1576 GOO8 : volatile, 1GOOD BLOCK ADRS 

110 : 1577 IS : volatile, iPARITY DISABLE FLAG 

111: 1578 CHIP SIZ : volatile, iMOS RAM SIZE ' 
1's : 1579 LS : volatile, 'LAST ADDRESSABLE 

113: 1580 : volatile, MAX NUMBER OF ARRAY ALLOWED 

114; 1581 At} a. att 'LAST ADDRESSABLE 

115: 138 10 volatile ‘INPUT OUTPUT BUFFER 

116: 1 STR_ OFF : co, 10. byte) volatile, i STACK FFs STORAGE LOCATION 

117 ;: 1584 re vector £ 76. byted vo = bges bday Ad, TIONS 

118 ; 1585 PD_ TEMP volatile, STORAGE {0c LOEATION DURING DIAG MODES 
119 : 1586 w C_SIZE : yor te. iSTORES WORD 16K OR 64K XFERS 

120 : 1587 RAS-INC : volatile, ROW ADRS INCREMENT 

121: 1588 WT_BATA : volatile. iSAVE WRITE DATA DURING REG READ WRITE TEST 

122 : 1589 RD-DATA : volatile iSAVE READ DATA DURING REG READ WRITE TEST 

123 : 1590 DRIVE TYPE volatile. DRIVE STORAGE LOCAT! 

126 : 1591 Resin Ft iLAST ML-11 REG INDEX FOR TYPE RH CONTROLLER 
125 ;: 1398 RE T "FLG. : eitiet’ (0) volatile, 'FLAG TO DETECT DOING REG INIT TEST 

126 : 159 A_CAL : Volatile, iCALCULATED CRC STORAGE LOCATION 

127 : 159% B-CAL : volatile. ‘CALCULATED CRC STORAGE LOCATION 

128 : 1595 P"CAL : volatile. iCALCULATED CRC STORAGE LOCATION 

129 : 1596 AGEN : volatile. iGENERATED CRC STORAGE LOCATION 

130 : 1597 B_GEN : volatile. iGENERATED CRC STORAGE LOCATION 

131 : 1598 , PIGEN : volatile, iGENERATED CRC STORAGE LOCATION 

135 5 1 ; <BLF /NOF ORMAT> 

135 : 160¢ AL AEG: z blockvector CNUM_OF _REG.FIELD_SIZ] field(WORD_MAP) mit REGISTERS 

136 : 160 STRUCTURE TO STORE INDIVIDULA 
137 : 1604 REGISTER PERSONALITIES 

138 ; 1605 tie. REGISTER ADDRESSES 

139 : 1606 iBITS FORCED HIGH 

140 : 1607 iBITS FORCED LOW 

141 : 1608 iREAD ONLY BITS 

14 ; 1609 CO.FORCE_HI] = %0°004000°, ‘'MLCS1 

144 : 1611 f9-FoRcE LO) = %0°173701", 

145 : 1612 TARE] = %0'160200"- 

146 ; 161 

147 : 1614 5.FORCE_LO = %0'25077", !MLDS 

148 : 1615 5° FORCE-HI = %0'010600 

149 : 1616 5° DONT_CARE) 


= %0'000100'. 





SEQ 0035 


4.BL1.2 (2) 


TOPS-20 Bliss-16 V2(212) 


PA: <NEALE 


33-pec=1980 09:81:22 


3 


J 
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'MLER 
!MLAS 
!MLPA 
!MLMR 
!MLDT 
!MLE1 
!MLE2 
'MLEE 
'MLCS2 


CRC REMAINDER VALUES FOR CRC CODE 


STRUCTURE TO STORE PRECALCULATED 
GENERATION 


REMAINDER TABLE 


010000° 
000000 ° 
‘ 


= %0'014620", 
= %0'177400", 


= %0°100000°, 
777400 
oerg 
000001 

= %0°140300", 


= %0°100300°, 
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SEQ 0036 


Z7MLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


4.8L1.2 (2) 


TOPS=20 Bliss-16 V2(212) 


PA: <NEALE 
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MISCELLANEOUS CODING SECTION SEQ 0038 | 
1 M4 32-Dec-1980 99: 34: :31 Tops~20 Bliss-16 v2(212) | 
1g ; —Dec-1980 1:22 A: <NEALE>BL3ML4.8L1.2 (3) 
14; 1765 ! 
12: pep FOULS: 
§ : 1768 | MACRO DEFINITIONS 
18; 1768 ! 
19 ; 1 
4 ; ea macro 
: 38 i REGISTER NAMES: 
; fv 1338 ; MLCS1 
$ = 
5 : “i 1776 -ML_REG CO,REGISTER_ADDI2. 'CONTROL AND STATUS REGISTER 1 
D4 = 
327 ; ‘ 1778 -ML_REG (1. REGISTER_ADDI2, 'WORD COUNT REGISTER 
3 = 
$29 ; " 1780 -ML_REG (2.REGISTER_ADDI2, 'UNIBUS ADDRESS REGISTER 
Py ALDA = 
13 : 1788 ML REG_(3.REGISTER_ADDIX, 'DESIRED ADDRESS REGISTER 
; i 1784 ML REG (4,REGISTER_ADDIE, 'CONTROL AND STATUS REGISTER 2 
$35 : . 1786 -ML_REG (5.REGISTER_ADD%, 'DRIVE STATUS REGISTER 
4 = 
337 ; i 1788 ML REG [6,REGISTER_ADDIZ, ‘ERROR REGISTER 
339 : . 1790 -ML_REG (7. REGISTER_ADDI2, !ATTENTION SUMMARY REGISTER 
4 = 
se : 2 1798 -ML_REG (8,REGISTER_ADDI2, 'LOOK AHEAD REGISTER 
é F.. PA = 
345 : . 1794 -ML_REG (8,REGISTER_ADDJ2, 'PROM ADDRESS REGISTER 
4 = 
35 : 2 1796 -ML_REG (9, REGISTER_ADDJ2, ‘DATA BUFFER REGISTER 
Py RAR = 
347 ; % 1798 . | REG C10, REGISTER_ADDJZ, 'MAINTENANCE REGISTER 
Bs 3 “ 1800 . | REG C11 REGISTER_ADDJZ, ‘DRIVE TYPE REGISTER 
51 5 A 1808 aL REG C12,REGISTER_ADDJ. 'SERIAL NUMBER REGISTER 
5§ 5 " 1804 C13,REGISTER_ADDJ. 'ECC CRC WORD REGISTER 1 
35 3 : 1806 : | G (14,REGISTER_ADDJE, 'ECC CRC WORD REGISTER 2 
Ad : a 1808 (15, REGISTER_ADDJ2, 'DATA DIAGNOSTIC REGISTER 1 
4 = 
59 5 “ 1810 ML REG C16,REGISTER_ADDIZ, 'DATA DIAGNOSTIC REGISTER 2 
1; 181¢ 3 REG (17, REGISTER_ADDJ2, 'ECC ERROR REGISTER 
2 = 
; " 1814 -ML_REG (18,REGISTER_ADDI2, , 'ECC ERROR LCOATION REGISTER 
: 1816  .ML_REG [19,REGISTER_ADDJ2, 'PROM DATA REGISTER 
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a 
a4 


SEO 0039 


1 
oOo 
& 
= 
ae 
rs 
“4 
ee 
© 


7 34 —Dec-1 4: TOPS=20 BLiss-16 V2(212) 
: Fe oeen 1960 O9:51 ioe PAC GNEALESOL BLS be lo <3) 
: M 1817 MLBAE = 
; “ 18 -ML REG, [20,RES SISTER_ADDJ2, 'BUS ADDRESS EXTENSION REGISTER 
3: 1820 .ML_REG [21.REGISTER_ADDIZ, !CONTROL AND STATUS REGISTER 3 
3 i BIT ASSIGNMENTS: 
: "1 
3 . i an esi)<15.1>%, 'MLCS1 BIT ASSIGNMENTS 
e = 
0; 7 (MLCS1)<14,1>2, 
Py s 
: 1 (MLCS1)<13,1>%, 
3 a1 OVA = 
5 1831 (MLCS1)<11,1>2, 
3 a1 RDY = 
: 1 (MLCS1)<7,1>2, 
7: "1 IE = 
388 : . i 5 (MLCS1)<6, ,1>%, 
330 : 4 i (.6S1)<0,1> ,1>%, 
358 5 n 133 ES19,6> 6>, 
; 1841  (MLCS2)<15,1>%, 'MLCS2 BIT ASSIGNMENTS 
395 : " 184¢ WCE = 
396 : " 1845 (MLCS2)<14,1>%, 
g = 
338 : “ 1845 (mL £S2)<13, 12%, 
4 —? 
400 : a 1867 (MLCS2)<12,1>%, 
é = 
40@ : 1849 (MLCS2)<11,1>%, 
403.; ™ 1850 PGE = 
40% ; a 1851 (MC$2)<10, 19%, 
3 = 
rr] 5 - 1888 (MLCS2)<9,1>2. 
408 ; “ 1859 metso< 55) <8, 1>%, 
410 : 185 LCS20<7, 1>%, 
412 M 1800 cnn<6, 198 
413: K 1860 cLR= ° — 
oi gel CRiis.Dr. 
P| = 
416 : “ 1868 (MLCS2)<6,1>2, 
3 = 
418 : . Beg (MLCS2)<3,1>%, 
420 : 186 Ose) 338, 
421 : M 1868 ATIN = 





8 eee eee — 
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MISCELLANEOUS CODING SECTION SEQ 0040 | 
\ | 
ZML4 32-Dec-1980 09: 34: :31 ' TOPS-20 Bliss-16 v2(212) 
; —Dec-19 1:22 PA:<NEALE>BL3ML4.BLI.2 (3) | 
$: “ 1 9  (MLDS)<15,1>%, 'MLDS BIT ASSIGNMENTS 
P} = 
; 1871 (MLDS)214,1>%, 
3 4 % MOL = 
430 : 1 (MLDS)<12,1>2, 
431 ; M 1874 & 
436 : 1875  (MLDS)<10,1>%, 
433 : M 1876 DPR = 
434: 1877  (MLDS)<8,1>%, . | 
435 ;: 4 18 Y= 
436; 18 (MLDS)<7,1>%. | 
437 : m 1880 WwW = 
438 : 1881  (MLDS)<6,1>%, * 
439 : i 1888 DCK = | 
440 : 1 (MLER)<15,1>%, _ 'MLER BIT ASSIGNMENTS | 
441 ; Mm 1884 UNS = 
442 : 1885  (MLER)<14,1>%, | 
443 : M 1886 = 
bab : 1887  (MLER)<13,1>%, 
445 : Mm 1888 IAE = 
446 : 1889  (MLER)<10,1>2, 
447: ™ 1890 = 
448 : 1891  (MLER)<9,1>2, 
449 : ® 1892 ECH_ERR = 
450 : 189 (MLERY<6, 1>%, 
451 : M 189% DPAR = 
452 : 1895  (MLER)<5,1>%, 
453 : M 189 CPAR = 
454 : 1897  (MLER)<3,1>2, 
455 ;: 1898 . * 
456 : 1899  (MLER)<2,1>2, 
457 : m 1900 ILR = 
458 : 1901 (PLER)<1,1>4, 
459 : % 1908 
460 : 190 (LER) <O 1>%, 
461 : M 1904 TYP = 
462 : A 1903 wT, 1>%, 'MLMR BIT ASSIGNMENTS 
664 : 1909 cup <1175>%, 
465 : m 1908 REF = 
466 : 1909  (MLARI<7,1>2, 
467 : ™ 1910 RW = 
468 : 1911 (ALR) 26, 1>2, 
469 : i 191¢ Dis = ‘ 
470 : 1913 (MLAR)<S,.1>2, 
471 : M1914 DAT ci = 
47e : 1915  (MLARI< 1%, 
473: i 1916 DAT_DM 
474 : 191 (PRS, De, 
475: mm 1918 DCK 
476 : 1919  (MLUMRD 22. 1>3, 
477 : m 1920 ECC_DiS = 
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CZMLABO | 
MISCELLANEOUS CODING SECTION SEQ 0041 





479 :L4 33-Dec-1980 09:24:31 TOPS-20 Bl is$-16 v2(212) 

480 : —Dec-1980 09:21:22  PA:<NEALE>@L 3ML4.BLI.2 (3) 

pe 3 133] (LMR) <1,1>%, 

3 M19 = 

684: 19 (MLMRI<0, 1>%, 

485 ;: Mm 19, = | 

486 ; 19 (MLDTI<0, 1>2, 'MLDT BIT ASSIGNMENTS 

487 ; M19 CRC_A = 

488 : M19 'MLE1 BIT ASSIGNMENTS 

489 : 19 (MLE1)<0,6>% | 

490 : m 19 RC_WRD = 

491 : 19 (MLE1) 28,652, 

492 : m 1931 CRC_B = 

493 : m 19 'MLE2 BIT ASSIGNMENTS | 

4% : 19 (MLE2)<0,6>2, | 

495: 19 ERR = | 

4% ;: 1935  (MLEEY<15,1>2, 'MLEE BIT ASSIGNMENTS 

497 : Mm 1936 = 

498 : 1937 (MLEEY<14,1>2, 

499 : Mm 1938 CRC_ERR = 

500 : 1939  (MLEEY<13,1>2, | 

501 : Mm 1940 BIT_IN_ERR = 

i UE 

504 : 1908 (MLEE)<8,65%, 

505 ;: 1944 ! 

506 : 1945 ' MISCELLANEOUS MACRO DEFINITIONS: 

507 : 1946 

508 ; M 1947 SNS = | 

509 : 1948  (MLSN)<12,4>%, 

510 : Mm 1949 = 

511: 1950  (MLSN)<8,4>%, | 

312 : m 1951 = 

513 : 195¢ (MLSN)<6,4>2, 

514: M 195. = 

515 : 1954  (MLSN)<0,4>%, 

516 ; mM 1955 IS_SET = | 

517: M 1956 ‘TEST IF BIT IS EQUAL 1 

518 : 1957 eql_ 12, 

335 ; A 1989 a * ‘TEST IF BIT IS EQUAL 0 

521 : 1960 eqi 02, 

dee : Mm 1961 HI = | 

523 : A 196¢ ‘READS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE 

234 : “ 1963 ML_REGL. index. FORCE_HII%, | 

3 = 

526 : M 1965 , 'READS REGISTERS FORCED LO BITS FROM PERSONALITY TABLE 

$27 : 1966 | L_REGL. index, FORCE_LOJE, : | 

255 : 4 1968 = 'READS, REGISTERS DONT_CARE BITS FROM PERSONALITY TABLE | 

a4 : 1969 ML_REGE. index, DONT_CAREJ2. : - 

33) ; " 1994 tanh ‘READS MLE2 DONT CARE MASK EITHER DATA DIAG OR ECC CIE REG | 

335 : 1972 ML_REGC14,DONT_CAREJ2, | 
} 
| 
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-Dec-1 09:24:31 TOPS=-20 BLiss-16 V2(212) 
ats ty $354 i30 PA: <NEALE>@L SML4.8L1.2 (3) 


WRT_MASK = 
'GENERATE MASK DATA PATTERN USING REGISTER FORCE LO, HI AND IGNORE 

IGNORE or ((not .LO) and (.HI or .TST_PAT))%, 

CLR_MBUS = 

CLEAR MASS BUS RESTORE DRIVE NUMBER 

CLR = ONE; DRV_NUM = .ML_DUTS, 

'<BLF/SYNONYM IS_SET = EQC 1 * > 

'<BLF/SYNONYM IS-NOT_SET = EQL 0 * > 

| DIAGNOSTIC DATA REGISTER MACROS 


!READ DATA DIAG REGS INTO BIND LOCATIONS 
!LOADS DATA DIAG REG WITH CONTENTS OF BIND LOCATIONS 


re 'WAIT LOOP DIRING MASS BUS TRANSFER 


0 
urltil .DRY;%; 


BIND DECLARATIONS 


bind 
ERROR DATA MAPPING FORMATS 


FMT_1 = uplit (Zasciz’ZAEXPECTED: Z06%A READ: %O6%NIN'), 

FMT~2 = uplit (Zasciz’ZAGOOD DATA: Z06%A _— BAD DATA: %06ZA = XOR: XO062NEN"), 
FMT—3 = uplit (Zasciz’ZADRIVE SN: ZO6ININ’) 

FMT-4 = uplit (Zasciz’ZABIT IN ERROR: ZO06INEN'), 

FAT-3 = uplit (Zasciz*ZAGOOD NIB DATA: BAD NIB DATA: %02%A NIB POS: %042NZN"), 
F $ = uplit (Ease iz: is ERROR : ), 

FMT_7 = uplit (Zasciz’ Iv AT: *) 

EMT-B = uplit (Zasciz*ZAREPLACE ARR MOD: *), 

FMT 9 = velit CFeec ta ge Alte AT DSA: *) 

FMT~10 = uplit (Zasciz* ZABIT<15:10>: 1f<9:0>: %B102NIN"), 

FMT~11 = uplit (Zasc1z’ ZAFAILING REG ADRS: *), 

FMT-1¢ = uplit (Zasciz’ AILING FUNC: SSiseer 

FMT-13 = uplit (Zasciz® ZAOFF SET FOR NIB : £D2 ZA = 2D2 ININ"), 

FMT_14 = uplit (Zasciz'ZAMROTE: 2D, : *) 

FMT~15 = uplit (Zasciz’ ZANIBBLES XFERED BEFORE ERROR: 2DSIN‘) 

FAT=16 = uplit (Zasciz*ZAFAILING REG: DATA: Z06ZA BAD DATA: X06XNIN"), 
FMT_17 = uplit (Zasciz* ZNZADIAGNOSING UNIT 101 ‘), 





SEQ 0062, 


ee =e 
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MISCELLANEOUS CODING SECTION SEQ 0047 
799 m4 $epocm 1900 09:26:31 TOPS-20 Bl iss-16 V2(212) 
oY 3 —Dec-1 09:21:22 PA: <NEALE 4.BL1.2 (5) 
oe 2 17 routine LOAD_STACK (STK_PTR, NIB_PTR) : novalue = 

3 18 begin 
804 ; 1 
805 ;: '44 
806 ; ' FUNCTIONAL DESCRIPTION: 
807 ; $ LOAD STACK TAKES GOOD NIBBLE DAT. 
808 ; : IN STRUCTURE ‘NIB SAVE’ 
809 ; ' STORES IT INTO THE STRUCTURE 
810 ;: 4 ST. : ITING ANY BAD NIBBLE 
811; : *STACK® LOCATIONS WITH GOO. NIBBLE 
sig 3 eo? ! TA 
813: 5 ! 
814; ! FORMAL PARAMETERS: 
815 ; ! STK_PTR 
816 ; es) ! POINTS TO PRESENT DEPTH OF THE 
817 ;: 35 4 *STACK® WHERE PRESENT GOOD NISBLE 
818 : $ DATA IS TO BE STORED. 
819 : 22s =! 
820 ; 235 | NIB_PTR 
821 : 236! POINTS TO CURRENT NIBBLE POSITION BEING 
822 ; 2237 =! MANIPULATED. 
823 ;: 2238 =! 
824 ;: oH ! IMPLICIT INPUTS: 
825 ;: 40 ! STACK 
826 ;: 2241 |! VECTOR OF 198 BYTE LOCATIONS WHERE 
827 ;: $506 § GOOD NIGBLE DATA IS STORED 
828 ;: 224 ' DURING DIAGNOSTIC MODE READS, AFTER 
829 ; 2244 BAD NIBBLE LOCATIONS HAVE BEEN 
830 ;: 2245 |! STRIPPED AWAY. 
831 ; 246 =! 
832 : 247 | STK_OFF 
833 ; 248! 
834 ; 249 ! vector of 9 aye LOCATIONS WHICH 
835 ; 2250 ! STORES AWAY A BAD NIGBLE OFF_SET 
83% ;: 2251 ! COUNT FOR EACH NIBBLE POSITION 
837 ;: $52 ! 
838 ; ! NIB_SAVE 
839 ;: 2 § BLOCK OF 3 WORDS TO STORE THE 
840 ;: 5 ! DATA FOUND IN MLD1, -MLD2 AND 
841 : 6 MLE2 AFTER A DIAGNOSTIC MODE READ. 
ore ! IMPLICIT OUTPUTS: 
B44; 9 ! *STACK’ LOADED WITH GOOD NIBBLE 
845 ; ' DATA 
846 ; 261 ! 
847 ; a) ! COMPLETETION CODES: NONE 
848 ; § 
849 ; ! SIDE EFFECTS: NONE 
850 ; 5 ! 
feo ,.. 
B35 ; 2268 case .NIB_PTR from 0 to 9 of 'SELECT NIBBLE DATA TO BE LOADED JNTO THE STACK 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0048 
855 :ML4 33-Dec-1980 09:24:31 TOPS-20 Bl iss-16 V2(212) 
S28 3 —Dec-1980 09:21:22 PA: <NEALE 4.8L1.2 (5) 
858 ; o set 
859 ;: 70 
860 ; 71 (0) : , 
861 ; ie stack C(.STK_PTR - (.STK_OFF C.NIB_ gry = Be VE CNIB_0); 
B6¢ : le, E BATA Ko INTO SELECTED STACK LOCATION 
864: 75 (1) : 
865 : 26 stack C(.STK_PTR = (.STK_OFF C.NIB_, PTRI))3 = sails SAVE (NIB_1): -- 
866 : oe £ BATA 1 INTO SELECTED STACK LOCATION 
868 ; 79 [2] : 
869 : § stack C(.STK_PTR - (.STK_OFF C.NIB_ gy yy = wake SAVE _(NIB_2); 
870 : 281 E BATA 2 INTO SELECTED STACK LOCATION 
871 ;: soos 
872: 2 (3) : 
873 : 2 stack C(.STK_PTR - (.STK_OFF C.NIB PTRI))3 = .NIB_SA NIB 33: 
87% ; 2285 IBBLE BATA He INTO SELECTED STACK LOCATION 
876 : ser (4) : 
877 : stack [(.STK_PTR - (.STK_OFF C.NIB_ PTR) = ninattl® SAVE C(NIB_4); 
878 : 289 E BATA 4 INTO SELECTED STACK LOCATION 
879 : 2290 
880 : 2291 (5): 
881 2 Stack £(.STK_PTR - (.STK_OFF C.NIB_, PTRI))3 = .NIB SAVE (NIB_5); 
309 IBBLE BATA 5 INTO SELECTED STACK LOCATION 
2 (6) : 
2296 stack ((.STK_PTR - (.STK_OFF C.NIB -PTRID)3 = .NIB_SAVE (NIB 6) 
rad4 NIBBLE BATA 6 INTO SELECTED STACK LOCATION 
2 (7] : 
$380 stack [(.STK_PTR - (.STK_OFF C.NIB_ PTR)))3 = .NIB_ SAVE (NIB 
2301 ‘ NIBBLE BATA 7 pre SELECTED STACK LOCATION 


C8] : 
stack [(.STK_PTR - (.STK_OFF C.NIB_ PTRI))3 = wingitl® SAVE _CNIB_8); 
E BATA 8 INTO SELECTED STACK LOCATION 


[9] : 
stack [(.STK_PTR - (.STK_OFF C.NIB_ PIRI) = .NIB_SAVE (NIB_9 
NIBBLE BATA 9 INTO di ecte STACK LOCATION 
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MISCELLANEOUS CODING SECTION SEQ 0049 
909 sML4 Beem 09:26:31 TOPS 
44 : —Dec-1980 09:21:22 PA:< 
a8 045 101 105 P.AAA: .ASCII /%AE/ 
91 130 1 1 ASCII = /XPE/ 

914 00 103 124 105 ASCII = /CTE/ 
915 OX 1 0 040 ASCII /D: / 
316 x Oe 11 066 ASCII /%06/ 
91 5 101 040 ASCII /2ZA / | 
918 X 040 040 - 040 ASCII / / | 
919 O 122 105 101 -ASCII /REA/ | 
1 ore 040 ASCII /D: / | 
045 11 066 ASCII = /296/ | 
045 116 045 ASCII = /2N%/ | 
116 000 000 “ASCII /N/<00><00> | 
045 101 107 P.AAB: .ASCII /%AG/ 
117 117 104 eASCII /00D/ 
040 104 101 ASCII / DA/ 
126 101 ore ASCII /TA:/ 
928 040 045 11 ASCII / %0/ 
929 646 045 101 ASCII /6%A/ | 
040 040 040 ASCII / / 
931 040 102 101 ASCII / BA/ | 
93e 104 040 104 ASCII /D D/ | 
101 126 101 ASCII /ATA/ 
934 ore 040 045 ASCII /: %/ 
5 11 066 045 ASCII /06%/ | 
936 101 040 040 ASCII /A / | 
040 040 130 ASCII / X/ 
938 117 \2e ore ASCII /OR:/ 
939 040 04 11 ASCII / %0/ 
940 066 045 116 eASCII /62N/ 
941 04 116 000 -ASCII /2N/<00> 
Soe 045 101 104 P.AAC: .ASCII /ZAD/ 
122 111 126 ASCII /RIV/ 
944 1 040 12 ASCII /E S/ 
945 116 0 040 ASCII /N: / 
346 045 11 066 ASCII /%06/ 
o% 045 116 045 ASCII /2NZ/ | 
%8 116 000 -ASCII /N/<00> 
9 045 101 102 P.AAD: .ASCII /2AB/ 
950 111 124 ASCII /IT / 
951 111 11 040 ASCII /IN / 
93¢ 11 105 13 1 ASCII /ERR/ 
14 11 1 0 ASCII /OR:/ 
954 17 040 04 11 ASCII / 20/ 
955 066 045 116 ASCII /62N/ 
936 045 116 900 -ASCII /2N/<00> 
045 101 107 P.AAE: .ASCII /ZAG/ 
958 117 117 104 -ASCII /00D/ 
959 0064 040 116 111 ASCII / NI/ 
960 906441 102 040 104 ASCII /8 D/ 
961 101 126 101 ASCII /ATA/ 
962 004447 o7¢ 040 045 ASCII /: %/ | 
004452 11 062 045 ASCII /02%/ 
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CZMLABO 

MISCELLANEOUS CODING SECTION SEQ 0055 
1245 sML4 Speen 1S 09:24:31 TOPS 
: 3 —Dec-1980 09:21:22 PA:< 
1 5 116 000 eASCII /2N/<00> 
1249 ASCII <00> 
1 04 124 045 P.ABD: .ASCII /2T2%/ 
1251 1 124 045 124 ASCII /T2T/ 
1 045 124 045 ASCII /2T%/ 
1 11 000 000 eASCII /N/<00><00> 
1 04 124 045 P.ABE: .ASCII /2ZT2/ 
1255 124 045 124 ASCII /T2T/ 
1 a 045 124 045 ASCII /2T%/ 
1 124 045 116 ASCII /TW 
1 76 000 000 ASCII <00><00> 
1 1 045 124 045 P.ABF: .ASCII /2T%/ 
1 1 124 045 124 eASCII /T2T/ 
1261 1 045 124 045 ASCII /2T2/ 
1 006111 124 045 124 ASCII /T2ZT/ 
1 006114 045 116 000 eASCII /2N/<00> 
i 006117 000 ASCII <00> 
1 0061 045 124 045 P.ABG: .ASCII /2T2/ 
1 opel 124 045 124 eASCII /TIT/ 
1267 1 045 124 045 ASCII /2T2/ 
er) 006131 124 045 124 eASCII /TZT/ 
1 Goel 045 124 045 ASCII /2T%/ 
1270 1 116 000 000 eASCII /N/<00><00> 
1271 Spe 148 045 124 0465 P.ABH: .ASCII /2T%/ 
12 14 124 045 124 ASCII /TRZT/ 
1 006150 045 124 045 ASCII /2T2/ 
1274 006153 124 045 124 eASCII /T2T/ 
1275 006156 045 124 045 eASCII /2T2/ 
1s76 006161 124 045 116 ASCII /TIN/ 
1 006164 000 000 ASCII <00><00> 
1 f 166 045 ioe 065 P.ABI: .ASCII /2T2/ 
1 61 124 04 124 eASCII /T2T/ 
1 6174 045 124 045 ASCII /2T2/ 
1281 6177 124 045 124 ASCII /T2T/ 
1 6202 045 124 045 eASCII /2T2/ 
1 124 045 124 eASCII /T2T/ 
1 045 116 000 ASCII /2N/<00 
1 000 ASCII 
1 045 126 045 P.ABJ: .ASCII /2ZT2%/ 
1 124 045 124 ASCII /T2T/ 
1 x 045 124 045 ASCII /2T2/ 
1 x 124 045 124 eASCII /T2T/ 
7 2 045 124 045 ASCII /2T2/ 
1 06<- 124 045 124 eASCII /T2T/ 
1 06< 5 124 045 ASCII /2T2/ | 
7 11 990 p08 eASCII /N/<00><00> 
1 04 124 045 P.ABK: .ASCII /%T2/ 
1 124 045 124 eASCII = /T2T/ 
13s %62 045 124 045 ASCII /2T2/ 
q 124 045 124 eASCII /T2T/ 
is 045 124 045 eASCII /2T2/ 
1 124 045 124 eASCII /T2T/ 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0056 | 
sML4 $5 -Bec= 1980 09:24:31 TOPS 
; —Dec-1980 09:21:22 PA:< 
045 124 045 ASCII /2T%/ 
124 0465 116 eASCII /TIN/ 
000 eASCII <00><00> 
04 107 117 P.ABL: .ASCII / 
000 ASCII > 
040 1 1 g P.ABM: .ASCII / DR/ 
+4 137 1 ASCII R/ 
1 131 ASCII /DY/<00> 
sti ASCII > 
111 114 P.ABN: .ASCII 1L/ 
106 000 000 “ASCII /F/<00><00> | 
040 117 120 P.ABO: .ASCII OP/ 
111 000 000 ASCII /1/<00><00> 
040 102 101 P.ABP: .ASCII BA/ 
104 000 eASCII /D/<00><00> 
040 107 11 P.ABQ: .ASCII G0/ 
117 104 000 eASCII /0D/<00> 
040 120 101 P.ABR: .ASCII / PA/ 
1220 111s«12%6 “ASCII /RIT/ | 
131 040 116 ASCII Y W/ 
117 126 000 eASCII /0T/<00> 
040 107 105 P.ABS: .ASCII / GE/ 
116 105 ice eASCII /NER/ 
101 124 1 eASCII /ATE/ | 
104 000 000 eASCII /D/<00><00> | 
060 106 105 P.ABT: ‘ASCII / DE/ | 
124 105 103 ASCII /TEC/ 
126 105 104 eASCII /TED/ | 
000 ASCII <00> 
040 105 4 P.ABU: .ASCII / ER/ | 
122 117 122 ASCII /ROR/ | 
000 000 ASCII > 
040 101 106 P.ABV: .ASCII / AF/ 
124 105 122 ASCII /T | 
000 000 ASCII 
060 104 125 P.ABW: ASCII / DU/ | 
2 116 “ASCII /RIN/ | 
1 000 eASCII /G6/<00> 
040 101 124 P.ABX: .ASCII / AT/ 
000 “ASCII | 
040 106 101 P.ABY: .ASCII / FA/ 
111 114 125 ASCII /ILU/ 
122 105 000 ASCII /<00> 
000 “ASCII 
040 101 124 P.ABZ: .ASCI] / AT/ 
101 000 eASCII /A/<00><00> 
040 101 O56 P.ACA: .ASCII / AT/ ‘ 
1246 136 ASCII /TN/ 
040 1 122 P.ACB: .ASCII / 
111 124 111 eASCII /ITI/ 
116 107 000 ASCII /NG/ 
000 ASCII <00> 
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ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 

1413 3ML4 
1415 
1ei8 O06 040 061 064 P.ACX: .ASCII / 14/ 
141 000 ASCII > 
Rs 11 111 P.ACY: .ASCII / NI/ 

141 1 10 114 ASCII / 
1 4 1 103 ASCII /E C/ - = -- 
1 74 116 is 000 ASCII /NT/<00> 
1 006746 040 107 124 P.ACZ: .ASCII / GT/ 
1 ie} 122 000 ASCII /R/<00><00> 
1 040 12 110 P.ADA: .ASCII / WH/ 
1 757 111 174 105 ASCII 4d 
1 006762 000 000 ASCII ><00> 
1 006764 040 124 122 P.ADB: .ASCII / TR/ 
1 7 105 000 000 ASCII /E/<00><00> 
1 040 111 116 P.ADC: .ASCII IN/ 
1 111 124 111 ASCII /ITI/ 
1 00 101 114 000 eASCII /AL/<00> 
1432 00 000 ASCII 
14335 007004 040 117 106 P.ADD: .ASCII / OF/ 
1434 007007 106 137 12 ASCII /F_S/ 
1435 00701 105 124 000 ASCII. /ET/<00> 
1436 00701 000 ASCII 
1437 007016 040 103 117 P.ADE: .ASCII / CO/ 
1438 00 125 116 124 ASCII / 
1439 00 000 000 ASCII <00><00> 
1440 00 040 104 105 P.ADF: .ASCII / DE/ 
1441 007031 114 101 131 eASCII /LAY/ 
94 poraee 000 000 ASCII 
1443 00 040 124 105 P.ADG: .ASCII / TE/ 
1444 007061 123 124 123 ASCII = /STS/ 
1445 007044 000 000 ASCII > 
1446 007046 040 101 104 P.ADH: .ASCII / AD/ 
1447 007051 122 123 oy eASCII /RS/<00> 
1448 007054 040 103 117 P.ADI: .ASCII / CO/ 
1449 007057 125 116 124 eASCII = /UNT/ 
1450 Ae 105 122 000 eASCII /ER/<00> 
1451 000 ASCII 
1636 Oe 040 122 105 P.ADJ: .ASCII / RE/ 
14 70 107 000 000 eASCII /6/<00><00> 
1454 007074 040 1s 105 P.ADK: .ASCII / TE/ 
1455 007077 4 124 105 eASCII /STE/ 
yi 4 ay 1 000 ASCII /D/<00> 
14 71 040 116 111 P.ADL: .ASCII / NI/ 
1458 907102 ie 102 114 ASCII / 
1459 007112 1 000 ASCII /E/<00> 
1460 007114 040 101 114 P.ADM: .ASCII / AL/ 
1461 007117 114 000 000 eASCII /L/<00><00> 
1166 71 124 105 P.ADN: .ASCII / TE/ 
1 71 1 124 000 eASCII /ST/<00> 
1464 0071 040 1 106 P.ADO: .ASCII XF / 
1465 0071 105 122 105 ASCII RE/ 
1466 007136 104 000 eASCII /D/<00> 
1467 007140 040 116 111 P.ADP: .ASCII NI/ 
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CZMLABO 

MISCELLANEOUS CODING SECTION SEQ 0059 | 
1 sML4 —Dec-1980 09:24:31 TOPS 
1690 § Sm seats 09:21:22 PA:< 


1676 007143 102 198 114 -ASCI1 /BBL/ 

1473 007146 1 12 “ASCII 1ES/<00> 
1474 007151 000 “ASCII > 

1475 ibe 040 123 103 P.ADQ: -ASCII 1 St/ 
1476 71 000 “ASCII > 
14 7156 040 115 125 P.ADR: ‘ASCII / MU/ 
1478 7161 114 124 111 “ASCII. /LTI/ 
oars 18 is 18 REN ay 
1 71 000 000 “ASCII 
as Ge MiG HG PS ASHE ZW 
1484 00 105 103 150 “ASCII /ECT/ 
1485 00 105 104 000 “ASCII /ED/<00> 
12a? COrs1s «464.0 MT ASEH An eG0><00> 
1289 Gorser «35000000 AEE et o> <00> 
1en $0 7 Os 000 866 PAADV: eH 409200><00> 
1 Gores P55 dy MM CRREHE Shosca 
1s eS PAB WR PM AEE Socom 
149% 00 125 116 103 P.ADY: ‘ASCII / 
1497 007251 000 “ASCII 
1499 00 2,08 EE ASEH A iG0><00> | 
1500 040 103 110 P.AEA: ‘ASCII / CH/ 
1501 101 116 116 “ASCII 
ia tore ig we ic 
1504 00 040 114 101 P.AEB: ‘ASCII / LA/ 
1308 0075 a et “ASCII © <00>< 
eae i yg tee RL Te 
1509 040 102 125 P.AED: ‘ASCII / BU/ 
Big Oe oe. ASHE LOO 
151 11 1 1  TASCII «= /NDR/ 
1318 iW? 116 18 “ASCII /ONE/ 
1514 000 “ASCII <00> 
1515 040 104 105 P.AEF: ‘ASCII / DE/ 
1316 103 117 104 “ASCII. /COD/ 
151 105 000 “ASCII /E/<00> 
1318 040 116 117 P.AEG: ‘ASCII / NO/ 
151 124 000 "ASCII. /T/<00><00> 
1 040 12 116 P.AEH: ‘ASCII / UN/ 
1 10 117 12 “ASCII /COR/ 
1 122 105 10 “ASCII = /REC/ 
1 124 101 102 ASCII = /TAB/ 
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NG SECTION 


CZMLABO ML-11 LOGIC TEST 
COD! 


MISCELLANEOUS 





TOPS 
PA:< 


22 
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- _ er] 4 ro) qi 3 
wah da 8 y § f5 
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TOPS 
PA:< 


22 


A 
ee Rt ER LORRI S 
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7.0 1 Gee © q PERG E RE? Sy 
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hYO% EYSGNBNrSrsSt SSGSAGSR NB SUSrsnsuser ys sern 
Serer eee Or Or erereere ee Oerer oe eer Or Or Orrerer &e &§ Orr 


a SRS SNR ESINEZIISNNETSSSS TINSHRSSAMSSENNENSSS 
SS SSS Seas AL FS hath at oP fated bar ba tat 
E505 200008515 2099 OSSE ERE MOReR ORES 


Sessessssssssss S88 
RARRRRRRRE DARE RRALRCoSTE SSE CSSD SSS OSS SUNN U CSUs COSCO 


el ck a cel cel col coe meee coe eel cel cee cee cee pene cee eel eee, cee, cel gee Genel ceed eee eel eel cee seen sel cel cel cee eh ek, eee el ol sel ee eee See ee el el cee el el el el peel el cel lh cel aoe 








SEQ 0062 | 
TOPS 
PA:< 
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ASCII / DI/ 
ASCII /AGN/ 
ASCII /OST/ 
ASCII /IC / 
ASCII /MES/ 
ASCII /SAG/ 
ASCII /E/<00> 
ASCII /DAT/ 
ASCII /AL/ 
ASCII /ATE/ 
ASCII / ER/ 
/ROR/ 
ASCII / DU/ 
ASCII /RIN/ 
ASCII /G T/ 
ASCII /RAN/ 
ASCII /SFE/ ° 
ASCII /R/<00> 
ASCII /SC / 
ASCII /BIT/ 
eASCII / SE/ 
ASCII /T D/ 
ASCII /URI/ 
ASCII /NG / 
eASCII /TRA/ 
ASCII /NSF/ 
<00> 
ASCII /TRO/ 
ASCII /E S/ 
eASCII /HOO/ 
eASCII /T L/ 
ASCII /00P/ 
ASCII / ER/ 
ASCII /S/<00> 
ASCII /RH / 
eASCII /CON/ 
ASCII /TRO/ 
ASCII /LLE/ 
ASCII /R E/ 
5, 
ASCII /DRI/ 
ASCII /VE / 
ASCII /HUN/ 
eASCII /G6 A/ 
ASCII /FTE/ 
ASCII /R MW/ 
eASCII /ASS/ 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0068 | 
1972 ms Zp-Dec-1960 09:24:51 ToPS 
° c- tél: s 
1974 ‘4 
1975 5 000 .BYTE 0 
19% 13256 000 “BYTE 0 
1 KY 100008 gels 00000 | 
1350 5ob¢ 000 “BYTE 
1981 018564 000 ote 6 | 
1 32¢ 000 “BYTE 0 | 
1 *. ae 000 BYTE 0 
1 1326 000 “BYTE 0 | 
1985 013270 000 ‘BYTE 0 
1986 0132 000 ‘BYTE 0 
1987 013272 000 ‘BYTE 0 
1988 0132 000 “BYTE 0 
wae | are 8 
Bier are 3 
1 5300 : 20 
135 Sis gontes we eg | 
1995 0133 000 “BYTE 0 
199% 0133 000 -BYTE 0 | 
1997 013306 000110 ‘ 110 
1998 013310 177666 7 “112 
1999 013312 000001 , 1 
sOOt 5 O133 : id Byte 8 
2008 O13: g 000 ‘BYTE 0| 
01331 000 “BYTE 0 
2004 013320 000 ‘BYTE 0 
2005 01332 000 “BYTE 0 
2006 013522 900 "BYTE 0 | 
533 000 “BYTE 0 
2008 $32 000 -BYTE 0 
32 000 “BYTE 0 
2010 013326 000 “BYTE 0 | 
2011 0133< 900 ‘BYTE 0 
aig 5330 140 “WORD 37500 
201 5332 000 “BYTE 0 
4 013333 000 ‘BYTE 0 
5 01333 000 “BYTE 0 | 
19 +t $00 ‘BYTE 9 | 
8 013337 900 ‘BYTE 0 
9 015346 100300 - WORD =77500 
53 000 "BYTE 0 | 
3 000 ‘BYTE 0 | 
345 000 “BYTE 0 
ace ho ‘BYE 8 | 
013350 000 ‘BYE 0 | 
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MISCELLANEOUS CODING SECTION SEQ 0069 


3ML4 Pa Sanya bs 09:24:31 TOPS 
2-Dec-1980 09:21:22 PA:< 


} 
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g 





Bi 


Bae 


SESSSSSSESSESSSESSELSELS ELSES SESS SS ESS eSE Ss ESS 
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KEREKE 
NOUSWN=ON 


ed a a ed ek at od 
e 
< 
m 
ie ciatiet oe Gitiee Paani memati —GOoooooooooo00oo 


af 
of 
af 
=f 
see OF 
| 
te 

2082 


“BYTE 
“BYTE 
“BYTE 
“BYTE 
“BYTE 
“BYT: 
“BYTE 
“BYTE 
“BYTE 
“BYTE 
“BYTE 
opr0g! WORD 4004 
920020 WORD 


REM. TBL: . WORD 


; 
S 
8 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
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PA:< 
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CZMLABO IC TEST 
MISCELLANEOUS. CODING SECTION SEQ 0071 
40 sML4 $5 pecm 15 09:24:31 TOPS 
4) , ; —Dec-1980 09:21:22 PA:< 
re 013576 RH.VEC: .BLKW 1 
44 01 ML.LUN: .BLKW 1 
45 0 ° -BLKw 1 
a 
214 
48 100000 B1T15== -100000 
149 040000 BIT14== 40000 
50 020000 BIT13== 20000 
51 a 0000 BIT1 10000 
1 25 BIT11== 4000 
215 002000 B1T10== 2000 
2154 001000 BITO9== 1000 
2155 000400 BI sae 400 
2156 000200 BITO7== 200 
2157 000100 BIT 100 
2158 000040 BITO5== 40 
2159 000020 BIT 20 
2160 000010 B1T03== 10 
2161 000004 BI T02== 4 
sige 000002 BITO1== 2 
21 000001 B1T00== 1 
2164 001000 BIT9== 1000 
2165 000400 BIT 400 
2166 000200 BIT7== 200 
2167 000100 BIT6== 100 
2168 000040 BITS5== 40 
2169 000020 BIT4== 20 
2170 000010 | BIT3== 10 
2171 000004 BIT2== 4 
2172 000002 BITI== 2 | 
21 000001 B81 T0== 1 
$\ 74 000040 EF .START== 40 
75 EF .RESTART== 37 
5176 $0008 EF; CONT INUE== 36 | 
2177 000035 EF .NEW== 35 
2178 000034 EF .PWR== 34 
2179 siete PRIO7== 340 
2180 000. 106== 300 
2181 Bones PRIOS== 240 
$\ Hi 104== 200 
000140 PRIO3== 140 
518% 000100 PRIO2== 100 | 
$| 85 000040 PRIQ1== 40 
86 000000 PR1I00== 0 
2187 000004 EVL== 6 
2188 000010 LOT== 10 
rat 4 000020 ADR== 20 
90 000040 IDU== 40 
$i3) 000100 ISR== 1% 
5195 000400 == 400 
2194 901000 PNT== 1000 


S B3 
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we 
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x00 
rc} = uote Lol > > uw — — 
Y_ geBRRESuyaynsaczy sha ghg575a2z57gau gua de agtaRgENERGG 
“i WeNeTAagAoHHoHAoHooHoAooOoHoHoOoOoo2HO4HoOHoOHOH4HHOOHMHHOOHK2HHMHOHOHM2AKHAHA AAO 
; 
a HU ee 
SL ARNE ATA Aas SE Ae OO RANA EEE EER ER EES Ah Yh det bd 
 %., pubieErere EEEEEEEEEEEEEEEEEEEEDSES=OSSSSOCgRSHSES 
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SG cheer Rerer reLcaatennene sete rrceretrperrerrer 
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OG! 
MISCELLANEOUS CODING SECTION 
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MISCELLANEOUS CODING SECTION SEQ 0073 


sML4 espa 09:24:31 TOPS 

: —Dec-1980 09:21:22  PA:< 
35 WRD.10= P. ABU 
reas i 5 
o0e2 6 Unb 13 P.ABX 
9 006442 WRD.14= P.ABY 
54 WRD.15= P.ABZ 
1 —- P.ACA 
0064 WRD.17= P.ACB 
006502 WRD. 18= P.ACC 
006506 WRD.19= P.ACD 
2265 006514 WRD. P.ACE 
$508 006522 WRD.21= P.ACF 
V4 0065 WRD. $= P.ACG 
006544 WRD. P.ACH 
2269 006552 WRD.24= P.ACI 
2270 006560 WRD.25= P.ACJ 
2271 006574 WRD. P.ACK 
22 006602 WRD.27= P.ACL 
ge Real a: ¥ 
2275 0066s? WRD.31= P.ACO 
2276 006646 WRD. P.ACP 
2277 006654 WRD. P.ACQ 
2278 006660 WRD. P.ACR 
2279 006666 WRD .35= P.ACS 
2280 006674 ae P.ACT 
2281 singh WRD.37= P.ACU 
a4 710 WRD. P.ACV 
006716 WRD . 39= P.ACW 
2284 goer es WRD.40= P.ACX 
2285 006 WRD.41= P.ACY 
2286 006746 WRD .42= P.ACZ 
2287 006754 WRD.4 P.ADA 
2288 006764 WRD .44= P.ADB 
ne ayia bs 
Ba te cs 
oe OR a ie x 
007046 WRD . 50= P.ADH 
rie HC ¥3 
2297 007074 Unb 38 P.ADK 
$505 0071 WRD . 54= P.ADL 
007114 WRD.55= P.ADM 
0071 WO. 268 P.ADN 
0071 WRD.57= P.ADO 
007140 WRD . 58= P.ADP 
230 007152 WRD. 59= P.ADQ 
2504 007156 WRD .60= P.ADR 
2305 007174 WRD.61= P.ADS 
2306 907210 WRD .62= P.ADT 





TOPS 
PA:< 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


SEQ 0074 | 


33-bee-1980 09:21:22 
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EEE SEE pepe peepee peed free egrebreft phfepref ep Pe apreereg retreat prea 


QQ eee eee ee eee eee eee eeeeeeeeeeeeeeeeeeeeeeeeeeee 


e*eee?#*#*# ee @ee## ee e8 8 @ @ @ 


Qaaanaananoaannanonaooanoooonaooooooooaoaaanoanonoonaoaaaaaoa 


BEA BROT ATOR Mt YI Senor HY Uw 4 EONAR SERHTAAN 


. Seeggeesecceggreeeeessssseeeeveed: 2222222222 222222 
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ox DROS SANINS LONGO SBI LIRR LYN SRILONGRYL 
SAS RERESRERRREN Soe CEEEREESR ARK NERS edssasces tues 


OM NUNTNOR. COD 


Sane ari aaeell i a roel ae cael cee 
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sa. oa 


SEQ 0075 | 
TOPS 
PA:< 

| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
221 
2272 
ame 
| 
| 
| 
J 


aN 
5 
ss 
58 
oe 
a 
| é ge 
| 2 34 
| gs xs 
| 2 “Zz 
Brae 
| 
| 
oO yy 
z ESPNS EERE ESE EEE ES ES EEE LLL ME ES a 
= aananannannnnnnnnnnnanonnnnnaannzee 935-9355, oan 
Ss ett ty 
8 
: hae peppeneged8 
S  agyaneaadesasseaens, SEsSe EERE 
pa. rtereeetereeteeetttch $2 et ‘ 
g 
| ea 


Sssscbussueousssessssessseceeece= =| : 


[cm seul geek quel seed gee seed ceed peel geal geal goed coed gee gel gel gee, ol SSSoooooooSoSoS 


GOOSOSOSOGSOSOSGSOSSOSSOSOOSOSOSSESooooooooooooO 


RRS SARA SARA ASANO DORR ERR RRR ERR 
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Ss 
8 
$8 
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| 
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¥ 
" 2 8 8 8 
= 2 2 2 2 = 2 2 
" renee TS oe ee Res Re ae8ie sees nee 
S GaSpABRrns caste rosa k ote roe ees Stee soSooe tees : 
- : 
: : nen clings ufnan af «8 
;  BERREGGE S505, -Pr05 Pres ss Seas gsPaarastenssnsstEs 
= &.. x z 3 a 3 x $ 
x 
2 
| # 


é 
by 
v2 
88 
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ga R Re | | 
2 | 
* a | 
RAN ~ 
sé | 
3 
BR 
| ne 
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: 3 
fe oe ® 48 3 
8 : : $a.5 ¥ HWE Be 
. ty ee 2.03 S82 25 sy 3s 
2 a Hees seeu R84 sks 3% oF 
% SoS ea sonoo ase vseeneresvsovwevenax “8 
3 a3 
f 3 Bag= 2 BBra8 LB8y Bs 
H «Bs SSESESSSSaSZERBAZCSESIAEIIIAISCae og 
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Pe Se fet See FS ~ 
g 
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SEQ 0078 


~3 
x 
Sz 
ov 
§ 
= 
R 
$3 
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58 
F i 
i 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


e.. 


CALLED 
XPRE 
BUS 
2! 
ORE 
LOADS A MASS BUS BLOCK TRANSFER, 
IN DIAGNOSTIC MODE, AT THE GOOD 


routine DAT_DM_XFER : novalue = 
FUNCTIONAL DESCRIPTION: 

REPEATE 
ASSI 

OAD THE 

OUNT RE 
ORMAT 

RANSFER 

BLOCK ADRS. 


2 
| Path 


4 iN 
Ba. 





#10, @ML .REG+120 
6006 wt 


B81S8 


MOV 
MOV 
RTS 


DAT .DM.XFER 


22 oe Fe FeO Fe FO 88 58 FS Fe Fe 28 58 88 28 Fe 28 28 28 28 8 88 88 SSS055 


RRR aR RRR RUNR 


AR 
AAA 


ROMER 


a  - 


| 
} 


| 
| 


0 words 


13 words 
; Maximum stack depth oer invocation: 


; Routine Size 


a Oe Ce + se 


7 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 32 
MISCELLANEOUS CODING SECTION 


he _ + BBS 980 09:81:22 





7% 
ek routine STRIPPER (WRD_CNT, NIB_CNT) : novalue = | 
78 : begin 
: 0 $44 | 
79: 1 | FUNCTIONAL DESCRIPTION: 
: ¢ i STRIPPER RUNS IN DATA DIAG MODE AND STRIPS OUT 
1: t ABLE NUMBER OF GOOD NIBBLES FROM THE 
3 i GOOD BLOCK AND STORES THEM INTO A CONTIGIOUS 
; : ft STACK FOR SEQUENTIAL ACCESSING 
2585 : o347 i FORMAL PARAMETERS: 
2586 : § ! WRD 
2587 ;: Seep ! TELCS STRIPPER HOW MANY WORDS IN THE GOOD 
2588 : so i BLOCK TO READ OUT 
2589 ; 2351 ! 
2590 : 2352 =| 
2591 : 2353 MELTS STRIPPER HOW MANY NIBBLES TO 
2592 : 2354 =O STRIP OUT OF EACH WORD. 
2593 : 2355 =! 
25% : 2356 «| IMPLICIT INPUTS: 
2595 : 2357 im 
2596 : 2358 
2597 : 2359 local 
2598 : 3360 STK_PTR: 'STACK POINTER 
55 4 Fare: incr CNT f to .NIB_CNT do 'CLEAR OUT THE STACK OFFSETS 
Py ner rom 0 °o : 
2601 ; oae8 STK_OFF C.CNTJ = ZEROES: 
at : 5 CLR_MBUS; 
2604 : 366 STK_PTR = -1; 'RESET THE STACK POINTER 
2605 ; 7 DAT~DM EXPER | 0; iSET UP_A DATA XFER AT THE GOOD BLOO< 
2606 : 368 MLCS1 = iDO A READ XFER 
2607 ; 2369 DELAY (ONE *08): ‘ALLOW PROM DATA TO GET INTO THE MLPD REG | 
2609 09 3 2371 incr A..8 from 0 to .WRD_CNT do 'LOAD THE STACK WITH ALL GOOD NIBBLE DATA | 
sy BEN = ae’ Eck SMe hte wr 
e = MH 
sig : 375 DELAY (ONE_US); | 
215 3 6 RD_LNG_WRD: iREAD DATA DIAG REGS INTO NIBBLE SAVE | 
e618 : iner NIB_PTR from 0 to .NIB_CNT do ‘STRIP OUT X NUMBER OF NIBBLES 
e n , 
so18 ¢ $ STR_PTR = .STK_PTR + 1; VINCREMENT THE STACK POINTER | 
2620 ; 382 if .PD_TEMP C.NIB_PTR] IS_SET 'SEE IF THIS A GOOD NIBBLE | 
: 384 STK_OFF C.NIB_PTR] = (.STK_OFF C.NIB PTRI) + (.NIB,CNT + 1) 
: 385 ides iTHER INCREMENT IT’S STACK OFFSET 
Py els 
3 389 *LOAD_STACK (.STK_PTR, .NIB_PTR); ‘ELSE LOAD THE NIBBLE IN THE STACK 
2626 : 388 
| 
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MISCELLANEOUS CODING SECTION : SEQ 0080 | 


| M4 gg -pec~1988 Se ae we Bliss-16 V2(212) 
: —Dec-1980 1:22 <NEALE>BL3ML4.BL1.2 (7) 
13 Soop end; 
$ 90 
3 331 end; r 
nee 
1 .GLOBL LSDLY 
ot STRIPPER: 
1 JSR R1 ,SSAVES : 2 
9 01 TST -(§P) 
01422 MOV 20(SP), RG : NIB.CNT,* 2 
3691 01 CLR a} > CNT 
$838 $1 1$: CLRB STK.OFF(R1) : ® (CNT) 2 
2654 01 INC R1 > CNT 2 
236 o1 2s: owe R1.R4 : CNT,* 
01 176742 BIS8 #40,@ML.REG+40 ; 2 
2658 1 MOV ML DUT RS 
2659 BIC wi RS 
2660 1 176724 BICB #7 ,@ML.REG+40 
2661 BIS8 R5,aML.REG+40 
oo6e oi JSR #1 RS DM. XFER . en $36 
2664 01 176642 MOV Wi am REG : 2 
$6 01 - mov oR} > *,SSTMP2 2 
266 mov SDLY.R2 z *,SSTMP1 
2663 48: CLR (SP) : SSTMP 
70 DEC R2 + S$STMP1 
3671 BNE 4$ 
3 5$: DEC R1 : SSTMP2 
26 3g 
267% 6S: CLR RS 7 CNT 2371 
76 176 7$: MOV @ML .REG+230,PD. TEMP : 2373 
176714 BISB8 #20,aML.REG+120 : 2374 
78 MOV #1.Ri : *,SSTMP2 : 2375 
eS 01 - nov ip ae R2 * ,SSTMP1 
2681 01 BEQ 10$_ * Ta 





















————— — a SS ee a —— 7 ee — = — ae 4 
7H &m cM GRR S 
S | 
o aN | 
an | 
38 | 
| ‘8 
oe 
rt 
bat iat) 
. * 2 eo. oe 3 
| - o = xe & 5 See £6 
, Ee GSS ft Bs ee. 
223 2 3 bz = > oc &2 88 88 
7 
“ sua & y x $ oo $ 
. Seg = 3 5 £ xs eff yt 
8 Eee ig Mi & § ..%8 g Sofee 5 
' gee Biheh &, ¢ Bes | Bees OS 
2 g. S88 & TRigat , Gee Siist &, 8 BBRRRS ne 
‘ dupeeRRheoveretaven reerenedceeronacewvorewenocy “Ss 
; 8 8> 38 3 
{SHAS BERS EBOBSRSESASLRSSSRLERERORERGEB ASE SSOES oe 
wie mye Ma 35 
2 eg #2 8 i #3 a 
2 sxe g 2 
| 3 xxx = 8 
I 
pes & fg ¥2 N gees 
nS eS BS 
Ssssanosssss O00 22—- 8 . ~ 
SES oosBuessbssolotsdunE/ssbrSscts : 


Ss 
rae 
= 
vz 
88 
7 
as 

(vv) 
a 
Cz 


S = MES PP Pte tiinlaiah § & cata > 
MILESE ER ES ERE R SRE ERE See EoD ET RenEE ES ren 33 


S5555555555555555555555555555 


BREA RaR OR RER EER ERR RRA SSAANRAR BARRA ANNAN ANRARRNNR 
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CZMLABO ML~11 LOGIC TEST 
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BRAS 98:34:2 ms 


7ML4 


| 
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MISCELLANEOUS CODING SECTION 


749 3:4 g —Dec-1980 09:24:31 
3 —Dec-1980 09:21:22 


SEQ 0083 
Tops~20 BLi ss-16 y2(212) 
ie ee oe 


FIRST CRC GROUP (60 NIBBLES) BY STRIPPING 
Ss O 2 ADDING EACH 


750 ; 
751 
738 33¢ Seas ae ts : novalue = 
n 
Fee 398 44 
le. | 399 ; FUNCTIONAL DESCRIPTION: 
75 CALCULATE THE CRC CODE FOR THE GOOD BLOCKS 
758 401 
759 
760 


OUT GOOD NIBBLES AND MODUL 
BITS WEIGHT RESULTING IN A_CAL,B_“AL,P_CAL. 


o 
— 
Be B+ Ge Se Ge Ge Se Ge Se Ge Se Ge Se Se Se Se Se Se Se 


i 
i 
406 | 
$f ried eT ON CAL B_CAL 
2764 407 | GOLBAL TORAGE LOCATION WHERE CALCULATED 
3765 408 CRC CODES ARE STORED AND EXAMINED FROM 
2767 410 | 
2768 2411 | TERE E CONTAINING PRECALCULATED BIT POSITION 
2769 261e i WEIGHTS USED IN THE MODULO 2 CALCULATION OF THE 
2770 2413 | CRC CODE 
5771 : 3414 jon 
272 : 2415 
2 5 2416 local 
277% : 2617 , ‘CHANNEL POINTS TO THE BITS IN A WORD 
2775 : 418 STK_PTR. STACK POINTER 
2776 : 2419 NIB“SAV': bitvector [4], iNIBBLE SAVE LOCATION 
2777 : 2420 ALOG, ‘INDEX INTO REMAINDER TABLE 
3778 3 2621 BLOG: ‘INDEX INTO REMAINDER T 
2780 : $i58 STRIPPER (12, 9): ‘STRIP OUT ALL 10 NIBBLE FROM 13 ARRAY WORDS 
2781 : Shek STK_PTR = -1: RESET STACK POINTER 
ores : 3686 incr PLOG from 0 to 5 do 'PLOG POINTS TO ONE CRC GROUP °6 WORDS’ 
e n 
3785 ; 3428 c L = -1; 'RESET CHANNEL FOR EACH WORD 
2787 3 265 iner NIB_ CNT from 0 to 8 do 'READ DATA NIBBLE 0-8 AND CALCULATE CRC 
2789 : 4 STK_PTR = .STK_PTR + 1; 'INCREMENT THE STACK POINTER 
2790 ; 4 NIB-SAV = .stack C.STK PTR): LOAD NIV_SAV WITH A STACK NIGBLE 
ore : te iner BIT_TST from 0 to 3 do 'TEST THE BIT FOR BEING SET 
e n 
27% | 437 c .CHANNEL + 1; 'CHANNEL POINTS TO THIS BIT 
2736 3 39 if -NIB_SAV [.BIT_TSTJ IS_SET !SEE IF THIS BIT IS SET 
: 2641 begin_ 11F SET THEN MOD 2 ADD THE REMAINDER 
799 ; 44 -PLOG + .CHANNEL: § 'CALCULATE THE ALOG 
0; 4458 BLOG = :PLOG + .CHANNEL*2; ‘CALCULATE THE BLOG 
: 2445 while .ALOG 63 'REDUCE ALOG UNTIL < 64 
5808 : 5466 fideo dc oh: 
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MISCELLANEOUS CODING SECTION 


4:31 
1:22 


Eeee 


!REDUCE BLOG UNTIL <64 


while .BLOG 63 
Soe = Bede = 83; 

CAL) xor (.REM_TBL 

CAL) xor (.REM_TBL 


=o 


TK_PTR = .STK_PTR + 1; 


BB 
Ons 
> 
Bs 


coe 


¢ 
e 


Wn 


: 


PASRS RRR RRR 


‘MOD P_CAL 
iMOD 2 A-CAL 
iMOD 2 B_CAL 


!SKIP OVER THE CRC NIB NT THE STACK 


HANNEL 
BIT.TST,* 


; NIB.SAV,* 


ee ee eee 


S8eeseucs 


; BIT.TST,* 


@ 
— 
o 


g 


essssssssessssssessssssssesse3s2 Be Oe Oe Se Oe Se Oe Oe Oe Os Os Oe BH Oe Oe Oe Be 


SRK KRKRKEEHS 





SRSROSINGSe 


28 


8 
5 





4 


TOPS-20 BLiss-16 V2(212) 
PA: <NEALEX3L3ML4.8L1.2 (8) 
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CZMLABO 
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BE sML4 
BE JSR PC ,BLSGT2 
Bf ADD #10,SP 
Bé 6 DEC RO 
B64 BNE 7$ 
BE MOV 4(SP) ,R1 
R68 014 ADD 10(SP5 ,R1 
B6S MOV 10(SP), 
B70 ASL RS 
: ADD 4(SP) ,R5 
“= MOV RS. 
: 4$: CMP R14 
: BLT 5$ 
: SUB 477 .R1 
R76 BR 4$ 
B7 5$: CMP R2,477 
B7E BLT 6$ 
SUB #77 .R2 
gR 5$ 
6$: CLR RS 
MOV 4(SP) ,.R4 
B1S8 REM. TL (R4) ORS 
MOV e~(SP 
BIC P.CAL, (SP) 
BIC RSP. 
BIS (SP)+,P. CAL 
01 CLR RS 
01 BIS8 . TBL(R1) RS 
MOV RS 
BIC A. CAL RS 
BIC R5.A.CAL 
BIS R4.A. CAL 
01 CLR RS 
B1S8 - TBL(R2) RS 
MOV RS 
BIC B.CAL.R4 
BIC R5.B.CAL 
51 BIS R4,B. CAL 
7$: INC RZ 
CHP R343 
BLE 3$ 
INC 1s (> 
000010 CMP 12(SP) ,#10 
BLE 2s 
1 INC 6(SP) 
51 INC 4(SP) 
000005 CMP 4(SP) 45 
BLE 1$ 
0 01 ADD #16,SP 
1 01 RTS PC 
§ ; Routine Size: 128 words 
2914 : Maximum stack depth per invocation: 17 words 


+ *(ALOG),* 


* (BLOG) ,* 


BIT.TST 
BIT.TST,* 


NIB. CNT 
NIB.CNT,* 


; STK.PTR 
PLOG 


SEQ 0085 


-1980 09:24:31 TOPS 
:22 PA:< 
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sML4 


Or Ooms 


RRR 
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CZMLABO 
MISCELLANEOUS CODING SECTION 
er 33 -pec=1980 09:51:22 


routine ERR_CHK_CRC = 
begin 


44 

i FUNCTIONAL DESCRIPTION: 

i "ERROR CHECK CRC* COMPARES HARDWARE a ae CRC 
CODES TO SOFTWARE ale 9 CRC CODE F 
CRC GROUP AND RETURNS A ONE ON DETECTION OF ERRORS 


IMPLICIT INPUTS: 


-B. CAL 
TORAGE LOCATIONS WHERE CALCULATED 
CRC CODES ARE STORED AND EXAMINED FROM 


P_GEN.A_GEN,B_GEN 
GLOBAL STROAGE LOCATIONS WHERE HARDWARE GENERATED 
CRC CODES ARE STORED AND EXAMINED FROM 





Stas local 


SE SERRE RESET eases 


005003 CLR R3 


SEQ 0087 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE ML4.BLI.2 (9) 


5 019703 000011 MOV alr *R2 ; o Sik PTR 
ce ea a 
3096 201 1$: INC R1 : POS 


2484 POS, "VARIABLE FOR FIELD SELECTOR 
os TEMP: ' TEMPORARY STORAGE LOCATION | 
oe? POS = -1; 'RESET THE POS 
2489 incr STK. PTR from 9 to 59 by 10 do 'CONVERT VERTICAL STACK CRC TO HORIZONTAL REPRESENTATION 
_ 
2491 -POS + ‘INCREMENT POS 
2498 TEMP =" stack E. STK_PTRI; 'READ CRC NIB FROM THE STACK | 
49 (P_GEN)<.POS, 1> = -TEMP<O, 1>; ICONVERT 1ST BIT 
49% (A_GEN)<.POS, 1> = not “TEMP<1, >: ' CONVERT BIT 
495 (B~GEN)<.POS. 1> = not .TEMP<2. 1>: iCONVERT 3ED BIT | 
BA coda 
Sio5 if (.P_GEN neq .P_CAL) or (.A_GEN neq .A_CAL) or (.8_GEN neq .B_CAL) then return ONE else return ZERO: | 
2500 'COMPARE GENERATED CRC CODE TO CALCULATED CRC CODE | 
2501 end; | 
3218 167 1 SR Ke ORI, SSANES | 
5216 oes aa MOV #-1,R1 


i 
—e————————EEE 


me — - --—-- — 





e. 
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7ML4 
1261 BISB STACK (R2) ,R3 
4g 818935 MOV #P.GEN, -(SP) 
MOV RI otSh) 
' MOV Rs - (3p) 
BIC #1 6, (SP) 
JSR PC .BL 
MOV #A. GEN, (SP) 
MOV R1,-(SP) 
MOV #1 .-(SP) 
CLR -(SP) 
BIT #2,R3 
BEQ os 
INC (SP) 
2S COM (SP) 
JSR PC BL 
MOV #8.GEN, (SP) 
MOV R1,-(SP) 
‘ MOV #1,-(SP) 
CLR ~(SP) 
BIT #4 ,R3 
3005 BEQ 3$ 
INC (SP) 
3$: COM (SP) 
JSR PC .BLSPU2 
ADD #24 ,SP 
0 ADD oie 
1 CoP R24 
4 BLE 1$ 
175552 CMP P.GEN,P.CAL 
4 BNE 4$ 
5 175536 cap A. GEN.A. CAL 
$ BNE 4$ 
175530 CMP 8.GEN.B.CAL 
8 BEQ 5$ 
o 4$: MOV #1,R1 
BR 6$ 
5$: CLR R1 
6$: MOV R1,R0 
RTS PC 
: Routine Size: 71 words 
: + Maximum stack death | per invocation: 
32 


14 words 


; *(STK.PTR) , TEMP 
; POS,* 
; TEMP ,* 


ZB -Dec-1980 09:24:31 TOPS 
—Dec-1980 09:21:22 =~ 
293 

2496, 


; POS,* sie 


; =, TEMP 


; POS.# 


; *, TEMP 


; *,STK.PTR 
; STK.PTR,* 


x es 


Be 
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te (BITS_XFERED) = 


— 


"FUNCTION DESCRIPTION: 


*FIND COMPLIMENT’ 6IT IS CALLED BY THE 
SYNDROME end ere AND INDEXES INTO 


THE oe YO Cc 
BITS. A COMPLIMENTED BIT IS BY DEF A ONE 


A_ONE IS RETURNED IF THE INDEXED BIT IS 
NOT SET 


PARAMETERS: 
BITS _XFERED 
REPRESENTS THE BIT —— TESTED 
IN THE DRIVE AND FROM THIS THE 
WORD AND BIT INDEX INTO THE 
10_BUF CAN BE CALCULATED 


;_t IMPLICIT INPUTS: 


ee ee +. 





———_ 


SSIS SEGRE PER ES USURURUR IESE CES 


essssss Be Pe Ge Fe Se Se Ge Se Se Se Ge Ge Fe Se Be Ge Be Ge Ge Ge Ge Be Be Se Ge Se Se Ge Se Se Be Se Se Ge Se Se Ge 


N 


TOPS-20 BL iss-16 
PA: <NEALE 4 


local 

COMP _ i 'WORD WHERE COMPLINEMT BIT IS LOCATED 

COMP" BIT ‘BIT THAT IS COMPLINEMTED 

BuF_SAV : bitvector (16); ‘STORES THE WORD IN WHICH THE BIT IS COMPLIMENTED 

COMP_WRD = .BITS_XFERED/16; ‘CALCULATE THE COMP WORD 
CoP elt = .BITS XFERED mod 16; ‘CALCULATE os COMP BIT 

SAV = .10_ OMP_WRDJ; 'LOAD THE COMP WORD INTO BUF_SAY 
10. BUF C.COMP-URD] = ZEROES. iSeRO THE CORP Woe 


if .BUF_SAV C.COMP_BIT] IS_NOT_SET then return ZERO else return ONE; 


!FIND COMPLIMENTED BIT AND RETURN ERROR STATUS 


FIND. COMP.BIT: 
JSR R1,$SAVE2 : 
TST ~(§P) 
MOV 1(SP) =< (SP) : BITS. XFERED,* 
MOV 
JSR PC “Bi SDiv 
MOV RO.R 





t— ——--— — ---- -— - - --- ———— 


: *,COMP.WRD 


nN 
: — he ° * 
Pe SUPHE TR 
| 5 328 3 8 
§ 
=- > ps : 
8 Se 6, é 
2 3g 88 pete as 
. STave SS S525 & +3 
2 % BAe Bae +4 melt. "ae xe" 35 
* Sivereccvereencevecrecetetcess “8 
f  RAREaSRERREEESTESDE Fe 
™~ ss 
oe. aq 
= 
& 
| 2 
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CODING SECTION SEQ 0091 
ZML4 —Dec-1 TOPS=20 Bliss-16 v2(212) | 
; | a eee s S Be ooe  eoAh 2 og pg oe | 
3 routine FORCE_REM (PLOG, CHAN) : novaiue = 
3 begin 
: oe 
: i FUNCTIONAL DESCRIPTION: 
: i VIA Groene Stone ih Rem CUATED MODULO 2 
; CRC_A,CRC ND PAL CR yn ae 
: i FORC TH ERAONEOOS CR CRC DATA TO 
; FORCE PERDICTABLE ECC ERRORS 
5 FORMAL PARAMETERS: 
: i POINTS TO ONE OF THE SIX WORDS OF 
3 A CRC GROUP | 
: i CHAN | 
: i POINTS TO ONE OF 36 CHANNELS IN 
; A CRC GROUP 
; iJ IMPLICIT INPUTS: | 
: local 
; . 'INDEX INTO REM_TBL 
; BLOG: VINDEX INTO REM_TBL 
: ALOG = .PLOG + .CHAN: ‘CALCULATE A_LOG 
; BLOG = :PLOG + .CHAN#2; iCALCULATE B_LOG 
; while .ALOG 63 'REDUCE A_LOG UNTIL < 64 
; ALOG = Ride - 3. " 
: while .BLOG rx ‘REDUCE B_LOG UNTIL < 64 
ate EA és, 
; ECC_DM = ‘SET ECC DIAG MODE 
: PAR_CRC_ reren_TBt -PLOGI: ‘LOAD PAR_CRC WRD WITH REM_TBL 
; CRC_ TEL £-AL 0G) 7AL iLOAD REA tT REM_TBL 
; CRC i LOAD Ene WITH REM_TBL | 
s o 

—— — FORCE .REM: 

01 0046167 166252 JSR R1,SSAVE3 : 
015606 016600 000014 MOV 14(SP) ,RO + PLOG,* 2559 


a 














SEQ 0092 
256 
2 


se 
se 
‘6 
3% 
uu 
g aay < 
ass 8848 iiae 
gis 2 
338 33532 $8 
2 
$ 
g 2 
2 2 gae fan sg 
So wm isomtsonts ~~ 
g Y= « Qeeeeeeeces sy 
AN Se Sc 
‘ evveouetwantncboradbekobetar 28 
S. 8% 
A - —-o FeQi.in Si BRS 8Bu. Ho 
ry esedshutatatenessscesacesscs 26 
™ os 
« 35 
ot Wee pa toy - 
= 
z ie ee te 


298 


ee ALLE OEE er 
oe ae sa 


wleleleleia, = -l= =~ S—— FALIS 


sceesar sera aEE mee 


SS55555555555 


RPA R RRR RAR RASA RADA DO NANDA 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEQUS CODING SECTION 
2ML4 —Dec-1980 09:24:31 ToPs-20 Bliss-16 v2(212) 
3 ym eats 1 $331 i30 <NEALE>BL3ML4.BL1.2 (12) 
1 280 routine FOR_ECC_ERR (SGL, UNC) : novaiue = 
H 2 1 begin 
4 144 
5: i FUNCTIONAL DESCRIPTION: 
3 5 i "FORCE ECC ERROR’ WHEN CALLED WILL FORCE 
; 586 VIA ECC DIAG MODE, SINGLE BIT EcC ERRORS 
: i OR UNCORRECTABLE ECC ERRORS INTO THE 
39 388 ECC DIAGNOSTIC REGISTERS 
3241 : 590 i FORMAL PARAMETERS: 
$508 3 591! SGL 
: 592 | WHEN SET TO A ONE THIS 
re : 393 ROUTINE WILL FORCE SINGLE BIT ERRORS 
3346 ; 95 | 
7: 59% WHEN SET TO A ONE THIS ROUTINE WILL 
8: 597 FORCE UNCORRECTABLE ECC ERRORS 
3250 : 2599 | IMPLICIT INPUTS: 
$533 3 so i 
3258 3 3600 ECC_DM = ONE; 'SET ECC DIAG MODE 
3255 : 2604 if .SGL ‘IF SGL IS TRUE 
3557 : 2606 then ‘THEN FORCE A SINGLE BIT ERROR 
3258 ; 2607 Pace CRC_WRD = %b'111111"; 
3359 : 2608 RCA ="%b'000000'; 
3260 : eRe B = %b'000000’: 
3261 ;: 10 
3508 3 2611 else 
: 2612 in ‘ELSE FORCE A UNCORRECTABLE ERROR 
3264 : 261 PAR_CRC_WRD = %b°111111': 
3265 : 2614 “A =7%b°111111': 
es : a CRC"B = %b*000000": 
7: 16 S 
: 17 
8 18 end; 
ie 915760 FOR.ECC.ERR 
15760 152777 000001 175306 ISB #1,@ML.REG+120 : 
79 015766 766 1 BIT #1.4(SP) > *,SGL 
3280 015774 001407 BEQ 1 
1 015776 052777 037400 175320 BIS #37600, aML.REG+150 : 


SEQ 0093 | 


dD 8 
ML-11 LOGIC TES MACRO M1113 22=DEC-80 12:16 PAGE 107 


CZMLABO T 
MISCELLANEOUS CODING SECTION 


sML4 
O1eote 142777 000077 175312 _ #77 ,@L..REG+150 
601 037400 175302 1$: BIS #37400, @ML .REG+150 

016022 152777 000077 175274 B1S8 #77 , AL .REG+150 
016030 142777 000077 175276 2$: BICB #77. aL .REG+160 
016036 000207 RTS PC 

3; Routine Size: 24 words 

+ Maximum stack depth per invocation: 

3300 


0 words 


Bo tee= 138 99, 


SEQ 00% 
4:31 TOPS 
:22 PA: 
261 

261 

261 


aon 





IML 
; 19 

7: 1 

10 : 

1 

ig : 

14: 
SHE 
ae ! 
3319 : $O3 
3320 : 2634 
3321 : 3655 
336 : 2637 
3356 ; ee 
3329 
3333 016040 
3334 016040 005077 
3335 016044 012777 
3336 016052 012777 
3337 016060 7 
3338 
3339 
3340 
5345 
3346 


8 
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3 —Dec-1980 09:24:31  TOPS=20 Bliss-16 v2(212) 
Dec-1980 09:21:22 PA:<NEALE 4.BL1.2 (13) 
routine FIRST_BLK_XFER : novalue = 
bat 
i FUNCTIONAL DESCRIPTION: 
i A REPEATEDLY CALLED SEQUENCE OF 
i ASSIGNMENT EXPRESSION TO LOAD 
i THE DSA, BUS ADRS AND WORD COUNT 
i REGISTERS WITH APPROPRIATE INFORMATION 
: BEFORE MASS BUS TRANSFERS CAN 
i . 
i LOADS A MASS_BUS BLOCK XFERR AT 
: BLOCK ZERO. 
hae 

BAY | 

= ZEROES; 'LOAD THE DSA REG WITH SECTOR ZERO 
MLBA = ‘LOAD THE BUS ADDRESS REG WITH 10 BUF ADRs 
mLUC = —_ 258; ‘LOAD WORD COUNT REG WITH COMPLIMENT 
FIRST .BLK.XFER: 

175140 CLR @ML .REG+30 ; 
011600 175122 MOV #10. BUF , aM .REG+20 : 
177400 175104 mov #400, @AL .REG*10 : 


; Routine Size: 9 words 
: Maximum stack depth per invocation: 0 words 


SEQ 0095 





SEQ 0096 
265 
266 





Sq | 
te! 2 | 
Ee la 
te | 
az 
&< o~ 
ca ae 
| poe 
ge Bee 
oe a «Be : | 
oF : gaat ° 
ee | e 
ie 88 ge 
"3s 3 gti, 
‘8 tee ss 
of w 8 vo 
. nS Se god gies be 
s aie B35 Bole 78 
ee ee 83 
ra eleee °° 
S f Sees . 3 # 
a> w 4 
ee ee 
5 5 shi sevi [Bax agen 
& 3 Sunes SB oan, | BERR 
= 8 S<2t522 Sz er oe 
£ teres segs 
ious — — - 
, Tun oS 
88 “Oooo 
78 ¥ | g5Se5 
ss or epee eaten pepeagmre nt 555555 
33) BeEaneP re Anr oP eeeenopreMernrrRneerr ren 
Cz 
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MISCELLANEOUS CODING SECTION SEQ 0097 
IML4 33-Dec-1980 09 1:24:31 TOPS-20 Bliss-16 v2(212) 
: —Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BLI.2 (15) 
i 8 ¢ routine LAST_BLK_XFER : novalue = 
: '44 
: i FUNCTIONAL DESCRIPTION: 
: i A REPEATEDLY CALLED SEQUENCE OF 
: 9 i EXPRESSIONS TO LOAD 
7: i THE DSA, BUS ADRS AND WORD 
; 71 | COUNT REGISTERS WITH APPROPRIATE 
3 ie i INFORMATION BEFORE A MBUS 
10 : ei TRANSFER CAN COMMENCE 
1g : 75 LOADS A MASS BUS BLOCK 
313 : 2676} TRANSFER AT THE LAST BLOCK 
314: 3677 i ADDRESS 
3415 ; 78 ! 
316 : 79 j= 
3417 : 
3418 ;: 1 pogtn 
3419 : ECC_DIS = ONE: ‘DISABLE ERROR CORRECTION 
3420 : MLDA = .LST BLK: iLOAD DSA REG WITH THE LAST BLOCK ADRS 
1; MLBA = 10 BOF: iLOAD BUS ADRS REG WITH THE I0 BUF ADRS 
322 : g685 mLuC = not 255; iLOAD WORD COUNT REG WITH COMPLIMENT 256 
3427 
3431 016114 LAST .BLK.XFER 
¥452 016114 152777 999002 175152 BI #2, 2M. REG+1 : 
% g16ig2 016777 1 1750 T BLK, aL .REG+30 : 
%34 016130 012777 011600 175036 MOV #10.BUF .aMiL .REG+20 : 2684 
%35 016136 012777 177400 175020 MOV #~400, aL .REG+10 : 268: 
#36 016144 7 RTS PC ; 
z Routine Size: 13 word 
ze > Max imum stack depth oat invocation: 0 words 


3 





H 8 
ST MACRO M1113 22-DEC-80 12:16 PAGE 111 
CTION SEQ 0098 


4 $5 -pec~ 1389 Oot gti 3! TOPS=20 Bliss-16 V2(212) 
—Dec-1980 09:21:22 PA: <NEALEX3L5ML4.BL1.2 (16) 


1 


a. 


T 


or 
88 
_* 
pay 


CZMLABO 
MISCE 


5% 
: 


routine TST_LNG_MRD (NIB_NUM, NIB_PAT, ERR_FLG) : novalue = 
n 


bee 
' FUNCTIONAL DESCRIPTION: 

S THE CURRENT NIGBLE 
POSITION IN *NIB_SAVE® WITH THE 
CURRENT TEST PATTERN. IF THE 
TWO VALUES ARE NOT EQUAL AN 


ERROR FLG IS SET WHICH THE 
CALLER CAN INTERIGATE 


FORMAL PARAMETERS: 
NIB_NUM 


CASE SELECT EXPRESSION TO SELECT THE 
CURRENT NIBBLE TO BE EXAMINED 


NIB_PAT 
CURRENT NIBBLE PATTERN TO BE 
COMPARED 


SSURALUNLS SEN 





SNISSESRORORES 


Be De Se Se Se Se Se Se Be Fe Be Ge Fe Ge Be Se Ge Se Be Se Ge Ge Ge Be Be Ge Se Ge Ge Fe Fe Se Ge Ge Se Se Ge Se Se Se Se Ge Be Ge Ge Ge Se Se Be Se Ge Ge 


MORONONoNoNonononononononononononononononoponononony 
BAAR AD NBA PPRPREERBRCEED EE ERER ESAT EN ET Ty 


% ERR_FLG 
% CONTAINS THE ADDRESS (PASSED BY REF) 
% OF THE CALLERS ERROR FLG 
3474 TO ENABLE THE CALLER TO EXAMINE 
ne THE ERROR STATUS OF THE ROUTINE CALL 
477 IMPLICIT INPUTS: 
3478 NIB_SA 
479 BLOTK OF 3 WORDS TO STORE 
3480 THE DATA FOUND IN MLD1, MLD2 
3481 AND MLE2 AFTER A DIAGNOSTIC MODE 
ss = 
see IMPLICIT OUTPUTS: NONE 
3488 = 
3487 -ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG BACK IN THE CALLING ROUTINE 
9744 case a tel from 0 to 9 of ‘SELECT THE NIBBLE TO BE TESTED 
se 
3492 g C0) 
%9 3350 j 
of) 731 if .NIB_SAVE CNIB_0] neq .(NIB_PAT)<0O, 4> then .ERR_FLG = ONE: 
F) 733 ‘TEST NIBBLE O AND SET ERR FLG IF NEQ 
rss 735 (1) : 
$500 ee if .NIB_SAVE (NIB_1) (NIB_PAT)<0, 4> then .ERR_FLG = ONE 
. ne ~ e _ = e 
3501 $738 - nsielintin - - 








———__—_--- -------____—- 
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MISCELLANEOUS CODING SECTION SEQ 0099 
ZML4 —Dec-19 :24:31  TOPS-20 Bliss-16 v2(212) 
: ry ame ts + 83; 1:22  PA:<NEALE>QL 3ML4.BL1.2 (16) 
: 739 ‘TEST NIBBLE 1 AND SET ERR FLG IF NEQ 
308 : 741 (2) : 
210 : 74s if .NIB_SAVE (NIB_2] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
@ : 45 'TEST NIBBLE 2 AND SET ERR FLG IF NEQ 
3514 : 747 (3): 
515 : 768 
3316 5 749 ; if .NIB_SAVE (NIB_3) neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
3518 : 2751 ‘TEST NIBBLE 3 AND SET ERR FLG IF NEQ 
3519 ;: 275 
3520 : 275 [4] : 
$25! 3 754 
522 : 739 if .NIB_SAVE (NIB_4] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
3534 : 2757 ‘TEST NIBBLE 4 AND SET ERR FLG IF NEG 
25 : 2758 
$259 3 759 (5) : 
527 : 760 
3508 : 3761 if .NIB_SAVE (NIB_5) neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3530 : 27 ‘TEST NIBBLE 5 AND SET ERR FLG IF NEQ 
3531 : 2764 
3532 : 2765 [6] : 
35335 : 2766 
3534 : 767 if .NIB_SAVE (NIB_6] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
3536 : 2769 'TEST NIBBLE 6 AND SET ERR FLG IF NEQ 
3537 : sone 
538 : 771 [7] : 
539 ;: ae 
3540 ; urs if .NIB_SAVE [NIB_7] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE: 
3542 : 2775 'TEST NIBBLE 7 AND SET ERR FLG IF NEQ 
543 : 2776 
544 : 2777 (8) : 
3545 : 778 
a6 : 09 if .NIB_SAVE CNI8_8) neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
548 : 781 'TEST NIBBLE 8 AND SET ERR FLG IF NEQ 
549 ; res 
550 : (9) : 
551 : 784 
358 : 789 if .NIB_SAVE [NIB_9) neq .(NIB_PAT)<0, 3> 
554: 787 -ERR_FLG = ONE 'TEST NIBBLE 9 AND SET ERR FLG IF NEQ 
555 ; 788 tes; 
556 : 789 
: 790 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


165672 
000010 


000014 
016172 
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TST.LNG.WRD: 


58s 


1$: 


age 
i Oe 
o<da 


Sa RRS CSRS FRy 


4$: 


aERqeese 


5$: 


sr 


zas== 
Yer 
_ 

Be 


1$(R1) ,PC 


AARARHAAM 


ef 


#177760 ,R2 
R1 


1 
13¢sp) R1 


Dec-1980 09:24:31 
—Dec-1980 09:21:22 


SEQ 0100 


. TOPS-20 pag ty v2(212) 
PA: <NEALEXBLSML4.BL1.2 (16) 


> ERR.FLG,* 
; NIB.NUM,* 


; NIB.PAT,* 


: NIB.PAT,* 


:; NIB.PAT,* 


; NIB.PAT,* 


ea ee = 
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MISCELLANEOUS CODING SECTION SEQ 0101 





sML4 aed 09:24:31 TOPS 
: 2-Dec-1980 09:21:22 PA:< 
BIC #177760,R1 
MOV NIB. SAVE ,R2 | 
ASR R 
ASR R 
ASR 
ASR | 
SWAB fe 
BIC #177760 .R2 | 
BEQ Ree 
6$ fOV 15¢ RI NIB.PAT 2755 
$ é . * 
gs 
‘a hz | 
CMP Rg I | 
BEQ 1 
7$ SOV 13¢ > RI NJB.PAT a1 
$ r+} . * 
Bie OAPTPOOTRI | 
MOV NIB. SAVE+2,R2 
ASR 
ASR | 
ASR | 
ASR | 
BIC #177760 .R2 | 
BEQ Ree | 
8$ ROV 19¢sp) R1 NIB.PAT 2767 
3 P} . * 
BIC 77760,R1 
MOV NIB. SAVE+2,R2 
SWAB ar 
as pene 
ao 8s | 
9S: MOV 12(SP) .R1 : NIB.PAT,* 
BIC fi R1 ve 
MOV NIB. SAVE+2,R2 | 
ASR | 
ASR 
ASR 
ASR | 
SWAB | 
es _ | 
gros | 
10 fOV 1S ) RI NIB.PAT 779) 
$ e . -* 
Bie MAPTPOOTRI erry 
MOV NIB. SAVE+4 ,R2 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


= 


@ 
— 
o 


BeBe8 





5 Sten tanee atach depth per invocation: 


3 
#177760,R2 

R1 
1 
1 
1 (SP) RI 
NIB. sAvEss, R2 


R 

#177770 ,R2 
; R1 

4! (RO) 


158 words 





3 words 


__ oO SS OO TE Se SS 


m 8 
ay ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 116 
MISCELLANEOUS CODING SECTION ; SEQ 0103 | 


sML4 § -Dec-1 4 ese eae [ees Bliss-16 V2(212) 
—Dec-19 221:22 A: <NEALE>@L SML4.BL1.2 (17) 


faut ine SR LIE JOO (NIB_NUM, NIB_PAT, RESULT) : novalue = 4 
n 


"FUNCTIONAL DESCRIPTION: 
XCLUSIVE ORS THE 
NIGBLE POSITION IN "NIB_SAVE* 
WITH CURRENT TEST P, 
AND ASSIGNS THE eA y THE 
FORMAL PARAMETER 


FORMAL PARAMETERS: 


CASE SELECT EXPRESSION TO 
gL, THE CURRENT 


| 
| 
“a | 
| 
| 
i | 
| 
| 
| 
NIBBLE TO BE | 
i 
i NIB_PAT 
CURRENT NIBBLE PATTERN TO BE | 
xXOR* ED 
i RESULT | 
i CONTAINS THE ADDRESS (PASSED BY REF) 
i OF AN OWN STORAGE LOCATION TO 
ENABLE THE CALLER TO EXAMINE THE XOR RESULTS. 
i IMPLICIT INPUTS: 
i NIB_SA 
BLOTK OF 3 WORDS TO STORE 
i 
i 
bow 


BR ONSRSRNADAEPEPEEEREECE © 


Be Ge Be Be Fe Ge Ge Be Se Gy Be Be Be Se Ge Se Fe Ge Fe Be Be Ge Be Be Ge Ge Ge Be Ge Fe Be Be Ge Se Fe Se Se Se Be Ge Se Se Ge Be Be Se Se Se Se Se Ge Se 


THE DATA FOUND IN MLD1 
MLD2 AND MLE2 AFTER A 
DIAGNOSTIC MODE READ. 


IMPLICIT OUTPUTS: NONE 


w 


40 


Sane Su ee from 0 to 9 of 'SELECT THE NIBBLE TO BE XOR'ED 


(0) : 
-RESULT = .NIB_SAVE CNIB_ ad i. -NIB_PAT; 


NIBBLE 0 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


C1] : 
-RESULT = .NIB_SAVE CNIB_ od ~, -NIB_PAT; 


NIGBLE 1 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


‘.” URESULT = .NIB_SAVE CNIB_ 2)» xor .NIB PAT; 


NIBBLE 2 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 








te 


Cn a ES Se el 
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SEQ toad | 





opec=1980 09:51:22 PAeMEALEELSMLS.BLI-2 C17) 


-RESULT = .NIB_SAVE (NIB_3) xOr -NIB_PAT; 
!XOR NIBBLE $ AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


(4) : 
-RESULT = .NIB_SAVE (NIB_4) xor -NIB_P, 
'XOR “NIBBLE % AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


(5) : 
eRESULT = .NIB_SAVE oun. | vr -NIB_P, 
OR’ NIBBLE "% AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


(6) : 
-RESULT = .NIB_SAVE Oua_6s » 7. -NIB_P, 
NIBBLE % AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


72 : 


-RESULT = .NIB_SAVE Can) 5 ~. -NIB_P. 
NIBBLE % AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


“RESULT = .NIB_SAVE (NIB_8) » or .NIB_P, 
NIBBLE " AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 


(9] : 
-RESULT = .NIB_SAVE (NIB_9J xor -NIB_P; 

'XOR “NIBBLE. 9 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
| 
| 
| 
| 
| 
| 
| 
| 


g ae — J RRR S SELFAFERLIS 


eo De Ve We Ge Se Se Ge Ge Be Ge Oe Ve Fe Se oe Be Be Se Se Se Se Be oe Ge Se Se oe Se Se 
— 





XOR.LNG.WRD: 


: 


ort 


ad 
% 


; NIB. PAT ,* 
RESULT, * 


: NIB.NUM, * 282 


Braz 
~ ee 


s 
3 ee¢ 
BRz 


2 


1$: 


peer ey 


e5gagegge-=e"2 


; 


re 
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MISCELLANEOUS CODING SECTION SEQ 0105 
; sML4 —Dec~ 1980 99: g:31 T 
; —Dec-1980 09:21:22 PA: 
671 .WORD 12$-1$ 
pa 172232 as HO” AB. SAVE. (RO) 2831 
é 135586 BIC 177760, ine) ; 
172220 3$: MOV NIB. SAVE.R3 : 283 
6 ASR 
6 ASR R3 
ASR | 
67 ASR 
67 177760 BIC #177760,R3 
67 MOV R3, (R2) 
6 BR 7$ 
4 172174 4$: MOV NIB. SAVE .R4 : 
9 016 BR 13$ 
: 6760 172166 5$: MOV NIB. SAVE ,R4 : 284 
: 6764 BR 11 
8 67 172162 6$: MOV NIB. SAVE+2, (R2) ; 284 
: 4 177760 BIC #1 » (R2) 
< 6 7$: MOV R1,R4 
R35 7000 BIC (RE) RG 
BIC R1, (R2) 
7004 BIS ~— R4&.¢ 
7006 RTS PC : 282 
3839 16 172140 8$: MOV NIB. SAVE+2,R4 : 2851 
3840 0170146 ASR RG 
3841 017016 _ASR R4 
ASR R4 
ASR RG 
BR 14$ 
5 172122 9$: mov NIB. SAVE+2,R4 3 / 2055 
172114 10$: MOV NIB. SAVE+2,R4 ; . 2859 
11$: ASR RS 
3349 _ ASR R4 
ASR RG 
1 ASR R4 
BR 13$ 
172100 12$: MOV NIB. SAVE+4 ,R4 ; 2863 
13$: SWAB RS 
5 177760 14$: sic 95 a } 
172064 15$: MOV NIB. SAVE+4 ,R4 : 2867 
ASR R4 
9 7 ASR RG 
76 ASR Roy 
1 0171 ASR R4 
71 SWAB RG 
giz 177770 BIC #177770,R4 | 
7110 16$: MOV R4, (R2) | 
3865 017112 17$: MOV R1.R3 
017114 BIC (R2) .R3 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
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BIC R1,(R2) 
BIS R3, (RS) 
RTS PC 


; Routine Size: 89 words 
3; Maximum stack depth per invocation: 


5 words 








— indncannnet 


TO MLD1 AND 
DATA brAcerie REGISTERS. 


. 9 
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MISCELLANEOUS CODING SECTION SEQ 0107 
sML4 $5 pec ~ 1380 Soest: al TOPS-20 BLliss-16 V2(212) 
3 —Dec-1980 09:21:22 PA: <NEALE 4.BL1.2 (18) 
ie: routine LD_LNG_WRD (NIB_NUM, NIB_PAT) : novalue = 
begin 
74 
75 $4 
7 FUNCTIONAL DESCRIPTION: 
LOADS ‘NIB SAVE’ WITH UNIQUE 
4 NIBBLE PA te cy By PRIOR TO WRITING 
1 


FORMAL PARAMETERS: 
NIB_NUM 


CASE SELECT EXPRESSION TO SELECT 
HE CURRENT NIBBLE TO BE LOADED 


' 

i 

i 

t 

i 

i 

i 

: 

i 

i 

i 

i 

NIB_PAT 

CURRENT NIBBLE PATTERN TO BE 
i 

i IMPLICIT INPUTS: 

NIB 

BLOTK OF 3 WORDS TO STORE 
i THE DATA TO BE WRITTEN 
INTO MLD1 MLD2 MLE2 
IMPLICIT 
i 
bow 


OUTPUTS: 
NIB_SAVE 1S LOADED WIH 
THE CURRENT NIBBLE PATTERN 


case > ae anata from 0 to 9 of ‘SELECT THE NIBBLE LOCATION IN NIB_SAYE TO BE LOADED 
se 


7 §IB_SAVE (NIB_0] = .NIB_PAT: 'LOAD NIBBLE 0 WITH NIB_PAT 
7 §B_SAVE [NIB_1) = .NIB_PAT: ‘NLOAD NIBBLE 1 WITH NIB_PAT 
C2] 18. SAVE CNIB_2) = .NIB_PAT: 'LOAD NIBBLE 2 WITH NIB_PAT 
7 {u1B_SAVE (NIB_3) = .NIB_PAT: !LOAD NIBBLE 3 WITH NIB_PAT 
“7 §1B_SAVE (NIB_4) = .NIB_PAT: 'LOAD NIBBLE 4 WITH NIB_PAT 
35 ; (5) 


PURER URSA BSE EEERERREECE CECE CEEECH AS RRENL S13 


NIB_SAVE (NIB_53 
{6] : 


-NIB_PAT; 'LOAD NIBBLE 5 WITH NIB_PAT 


5 
886 
: 
289 
28% 
2895 
2896 
2897 
2898 
2899 
p04 
290 
2904 
2905 
$08 
si 

1 
4 

4 
291 2 
S519 

18 

19 

; 
$998 





ee a eT 





9 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE f21 
MISCELLANEOUS CODING SECTION ' SEQ 0108 
m4 —Dec-19 7:26:31 TOPS-20 BLliss-76 V2(212) 
13 g —pec~ 1350 $954 i35 PA: <NEALE 4.8.1.2 (18) 
3 39 : NIB_SAVE (NIB_6] = .NIB_PAT; 'LOAD NIBBLE 6 WITH NIB_PAT 
5: (7): 
: 7 NIB_SAVE C(NIB_7] = .NIB_PAT: ‘LOAD NIBBLE 7 WITH NIB_PAT 
: J: 
9; NIB_SAVE (NIB_8) = .NIB_PAT: ‘LOAD NIBBLE 8 WITH NIB_PAT 
1; (9) : 
; : NIB_SAVE (NIB_9] = .NIS_PAT ‘LOAD NIBBLE 9 WITH NIB_PAT 
: 33 5 : 
; 3 36 end; 
0171 LD.LNG.WRD: 
017124 010146 MOV R1,-(SP) : - 28 
3365 0171 16600 000004 MOV 4(SP) ,RO . : NIB.PAT,* 2508 
0171 16601 000006 MOV 6(SP)<R1 > NIB.NUM,* 
7 0171 1 ASL R1 
017140 107 017144 ADD 1$(R1) ,PC | 
017144 1$: . WORD gs-1s 
017146 WORD 1$ 
O11 1 “WORD $5-1$ 
CBS Sas ioe iit 
35 017160 SooTze “WORD 93-1$ | 
7162 2 “WORD  10$-1$ 
7164 ‘WORD 128-18 | 
166 "WORD 13$-1$ | 
71 177760 BIC -#177760.RO : 2906, 
g17174 1 M4 000017 171750 BICB © #17,NIB. SAVE | 
fi s & , 209 
, ASL RO : 
ASL RO 
ASL RO 
177617 BIC #177617,R0 
000360 171724 Bice #360.NIB. SAVE 
43: SWAB sO : 2912 
170377 BIC #170377,,RO 
767 007400 171706 BIC #7400,NIB. SAVE | 
017244 000612 BR re) 
017246 000300 5$: SWAB : 2915 


—--—— 


F_9 
ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 122 





CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0109 
ZML4 22-Dec-1980 99:24:31 TOPS 
; —Dec-1980 09:21:22 PA:< 
ASL RO 
1 ASL RO 
4000 ASL RO 
4001 ASL 
4008 BIC a RO 
171660 BIC #170000 ,NIB. SAVE 
4004 68: BIS RO NIB. SAVE | 
4005 BR 15$ : 2902 
4006 7$: BIC #177760,R9 : 291 
171642 BICB = #17, NIB. SAVE+2 | 
4008 01 : BR 11$ 
4009 8$: ASL SS ene : ; 2921 
4010 ASL RO | 
oH 8 st 
1018 BIC #177617,RO 
4014 171616 BICB #360,NIB.SAVE+2 
4015 BR 11$ 
4016 1 9S: SWAB sO : 2926, 
401 BIC #170377,RO | 
4018 01 171600 BIC #7600 ,NIB. SAVE+2 | 
4019 017354 BR 11$ | 
3 1 10$: Swab RO : 2927 
017362 ASL RO 
017364 ASL RO | 
os Hs A Brrr 
1 4 171552 BIC #170000 ,NIB. SAVE+2 
7 11$:  =BIS RO,NIB. SAVE+2 | 
017 BR 15$ F 2902 
4029 741 12$: SWAB RO : 2930 
761 BIC #170377,RO 
1 01741 171532 BIC #7600 ,NIB. SAVE+4 
7 BR 14$ | 
7 13$: SWAB RO : 2933) 
4034 017 ASL RO 
4035 017 ASL RO 
4036 7 ASL RO 
7 ASL RO 
4038 7440 BIC #107777,RO 
Plgkehy 171504 BIC #70000 ,NIB. SAVE+4 
4040 017452 14$: BIS RO, NIB. SAVE+4 
4041 017456 15$: MOV (SP)+,R1 ; 2872 
“be 017460 RTS PC 
ora : Routine Size: 111 words. f 
4045 ; Maximum stack depth per invocation: 2 words 





-——— 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


4051 :ML4 
4088 ° 
: 7 
4055 ;: 3 
4056 ; 39 
4057 ;: QO !++ 
4058 ; 1 
4059 : 
4060 ee i 
4061 ; i 
toes : 7 
4064 : i 
4065 ; i 
4066 ;: 9 } 
4067 ; i 
4068 ; 1! 
4069 e i 
4070 ; $305 i 
4071 ; 2954 i 
Bre 3 2955 
4073 ;: 2956 MLCS1 
4074 ; 2957 end; 
4078 
pr 017462 004167 164356 
oe 1 000010 
4084 0174 
4085 oe 
408? 017300 010001 
4088 017502 6100 013156 
4089 o17308 000012 
4090 017512 046100 013160 
4091 page al 161 013162 
4098 01 3 
0175 0102 173424 
40% 01 000207 
4095 
4096 
4097 


S 


routine WRT_CS1 (TST_PAT, index) 
begin 


FUNCTIONAL DESCRIPTION: 


LOADS THE CONTROL & os REGISTER 1 WITH A DATA PATTERN 
GENERATED BY THE MACRO WRT_MASK. 


FORMAL PARAMETERS: 
TST PAT 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


9 
MACRO M1113 22=DEC-80 12:16 PAGE $23 


338 


: novalue = 


c-1980 
c-1980 


09:3 


4:31 
1:22 


HE MACRO WRT MASK TO SELECT THE CURRENT —_— ADDRESS, 


= WRT_MASK; 


WRT.CS1:JSR 


; Routine Size: 


> Maximum stack depth ae invocation: 


USED BY T 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATI 


'LOAD GENERATED WRT_MASK PATTERN INTO MLCS1 


ANSARRASSSSS=2 


20 word 


3 words 


SEQ 0110 
TOPS-20 Blis =) v2(212) 
PA: <NEALE>BL3ML4.8L1.2 (19) 
2937 
INDEX,* 
TST.PAT,* 
2937 





ae 


an & 
a kd ed od 


Oe kk ad ed ad dd 


BeBe Fe Ge Be Ge Be Fe Ge Ge Ge Fe Se Fe Ge Ge Be Be Be Fe Ss Ge Ge Se Fe Ge Be Be Se Be Ge Ge Ge Be Ge Ge Se Se Se Se Se Ge Se Se Se Se Be Ge se 


e 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


3B 
ERERS 


Se Se SR aR SEE Ue SEUSS uSESRORERE® 


H 9 
MACRO M1113 22=DEC-80 12:16 PAGE 124 


So pec=1980 OO:o1i22 | PRCANEALESOL BLS 


routine RD_CS1 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


!44 


1+ 

' FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
ern. 


WITH a 
GENERATED BY THE MACRO ° 


IF THE COMPARE IS + EQUAL THEN 
THE FORMAL PARAMETER ‘ERR * IS 
aaieee A ONE TO INDICATE T 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT _MASK TO 
SELECT THE CURRENT REGISTERS er 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION 


CONTAINS THE ADDRESS rey BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE T 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 


tees INPUTS: 
WT _DATA 


GETS LOADED WITH THE GENERATED 
atone DATA PATTERN THUS ALLOWING 
ER TO PRINT FAILING GOOD DATA. 


DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 

TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL fy oad ION WR_DAT ~ 
AND RD_DATA LOADED WITH 


GOOD 
AND BAD REGISTER DATA 


a te te ee ee eee ee te ee ts te te te 


16 v2(212) 


4.8L1.2 (20) 


SEQ 0111 


— - - 





3; Routine Size: 35 word 
> Maximum stack depth oor invocation: 3 words 


S388 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 155 
MISCELLANEOUS CODING SECTION SEQ 0112 
| 4161 M4 33-Dec-1980 :24:31 TOPS-20 BLiss-16 v2(212) 

rey «1 3 —Dec-1980 09:21:22 PA: <NEALE 4.8L1.2 (20) 
4164: 10 .ERR_FLG = ZERO; ‘CLEAR ERROR FLAG 
4165 : 11 _DATA = iSAVE THE DATA WRITTEN TO THE REGISTER 
4166 ig RD-DATA = .MLTS1 or ~ IGNORE: iREAD AND SAVE THE REGISTER 
168 1 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; ‘READ THE REG FOR WRT_MASK 
4170 : 16 -- !SET ERROR FLAG IF NEQ 
S12) 1 end: 
4179 0175 004167 164306 RD.CS1: JSR R1 ,SSAVE2 : 2958 
4180 0175 9090 6 000010 CLR @10(SP) * ERR.FLG 10 
4181 01 16 000012 MOV 12(SP) ,RO : INDEX,* 3011 
4182 01 ASL RO 
4183 0175 ASL RO 
4184 0175 ASL RO 
41 75 MOV RO.R1 
41 7 MOV ML -REG+2(R1) RO 
418 BIS 14(SP) ,RO : TST.PAT,* 
4188 01 BIC ML.REG+4(R1) RO 
4189 1 MOV Mi -REG*O (RT) .R2 
4190 017576 BIS a 
4191 917600 MOV R2.WT.DATA 
4198 7604 MOV aa .REG.R2 : 3012 
4193 017610 BIS ma -REG*S (RI) RZ 
419% 017614 MOV RD. DATA | 
4195 01 cme WT .DATA,RD.DATA : 3014, 
4196 017 BEQ | 
4197 017 MOV #1,@10(SP) : *, ERR.FLG 
4198 017636 RTS PC : 2958 


J_9 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
IML4 —Dec-1 1:24:31  TOPS-20 BLiss-16 V2(212) 
\9 3 $5 pec~ 1380 Oeste PA: <NEALE 4.8L1.2 (21) 
i : 18 routine WRT_ER (TST_PAT, index) : novalue = 
13; 19 begin 
4; 
5: 1 '4¢ 
i 3 FUNCTIONAL DESCRIPTION: 
18 ; 4 LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
0 : FORMAL PARAMETERS: 
: i TST_PAT 
: CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
4225 : Lj x 
4226 : 3 i USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
4227 : 30 i FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION 
4228 ;: Re i 
re ; 3036 MLER = WRT_MASK; 'LOAD GENERATE WRT_MASK PATTERN INTO MLER 
ose 3 end; 
Se res Stash sey et see ts tween 
eo 2 oe” 
0541 O17650 OSSD aoe 
este 017652 006300 ASL RO 
4243 017654 ASL RO 
4244 97636 0001 MOV RO,R1 
4245 6100 013156 MOV mi -REG*2(R1), RO 
017664 12 BIS 12(SP) ,RO : TST.PAT,* 
0176 046100 013160 BIC ML .REG+4(R1) RO 
01767% 6102 013162 MOV me -REG*6(RI), *R2 
£536 O1yfbe 01 173326 nov aoe REG+60 
4251 017706 000507 RTS ~ is : 
t5e$ ; Routine Size: 20 word 
$538 ; Maximum stack depth per invocation: 3 words 
4260 





SEQ 0113 


is 
5: 


3018 


K_ 9 
MACRO M1113 22-DEC-80 12:16 PAGE 127 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0114 
IML4 —Dec-1 4:31  TOPS-20 BLiss-16 v2(212) 
: a peat rs 8: oh :22 PA:<NEALE 4.8L1.2 (22) 
Ss Es routine RD_ER (TST_PAT, index, ERR_FLG) : novalue = 
$ ; 9 begin 
: 1! 
4269 ; ¢ | i FUNCTIONAL DESCRIPTION: 
71: COMPARES THE CONTENTS OF THE 
me ; 5 i ERROR REGISTER WITH 
: i THE MASKED DATA PATTERN 
7 ; ; GENERATED BY THE MACRO ‘WRT_MASK’. 
4276 9 i IF THE COMPARE 1S NOT EQUAL THEN 
; i THE FORMAL PARAMETER ‘ERR Fig Is 
4278 : ee ASSIGNED A ONE TO INDICATE T 
4281 ; 3094 ! FORMAL PARAMETERS: 
reo) : ; 
4284 : 3036 i DATR P PATTERN TO BE MASKED AND 
4285 : 3058 i COMPARED AGAINST THE CONTENTS 
4286 : 3059! OF THE REGISTER UNDER TEST. 
4288 ;: ea i INDEX 
4289 : i USED BY THE MACRO WRT TO 
4290 : i SELECT THE CURRENT REGISTERS ADDRESS, 
4291 : 3064 i FORCED HI, FORCED LO AND DON'T CARE 
429@ : 5 i MASK INFORMATION. 
4293 ; 3066 =! 
42% : 7 i FLG 
4295 : i CONTAINS THE ADDRESS (PASSED BY REF) 
4296 : 3069 i OF THE CALLERS ERROR FLG TO ENABLE THE 
4297 : 3070 CALLER TO EXAMINE THE ERROR STATUS 
4298 : 3071 | OF THE ROUTINE 
3: BR 
4300 : i IMPLICIT INPUTS: 
4301 : 7% WT_DATA 
4302 : 75 I GETS LOADED WITH THE GENERATED 
4303 : 6 i WRT ASK DATA PATTERN THUS ALLOWING 
4304 ° Md : R TO PRINT FAILING GOOD DATA. 
4306 : 79 | DATA 
4307 : 3080 i GETS LOADED WITH DATA READ FROM THE 
4308 : 1 i REGISTER THUS ALLOWING CALLER 
4309 : TO PRINT FAILING BAD DATA. 
4311 : ‘ IMPLICIT OUTPUTS: 
4312 : 5 i GLOBAL LOCATION WR_DATA 
4313 : i AND RD_DATA LOADED WITH GOOD 
4314 : 7 AND BADR REGISTER DATA 
4316 : in 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 





Pot at at ot tt at pt et tt at 


1 


01 
or 
01 
01 
; 
01 
01 
o1 
01 
01 
01 
01 


7710 
7714 
77 
7 
7740 
hh) 
7750 
7754 
Tres 
7766 
777e 
7776 
Sa 


BREAK REERE 
at 23 


my 


GaGa 
Bese 








-ERR_FLG = ZERO; 
WT_DATA = WRT : 
DATA = .MLER or .IGNORE; 


if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 


173124 
000001 000010 
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SEQ 0115 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE 4.81.2 (22) 


33pec=1980 09:51:22 


'CLEAR_ THE ERROR FLAG 

!SAVE THE DATA WRITTEN TO THE REGISTER 
!READ AND SAVE THE REGISTER 

!READ THE REG FOR WRT_MASK | 


!SET ERROR FLAG IF NEQ 


RD.ER: JSR R1,SSAVE2 : 3038 
CLR @16(SP) * ERR.FLG 3091 
MOV 12(SP) ,RO > INDEX,* 
ASL RO | 
ASL RO 
ASL RO 
MOV RO,R1 
MOV ML. REG+2(R1) RO 
BIS 14(SP) ,RO : TST.PAT,* 
BIC ML .REG+4(R1) RO 
MOV ma -REG*O(RI) .R2 
BIS s 
MOV R2.WT.DATA 
MOV aL REG : 
BIS ML .REG+6(R1) .R2 
MOV R2,RD.DATA 
CMP WT .DATA,RD.DATA : 
BEQ 1$ 
MOV #1,@10(SP) : *, ERR.FLG 
1$: RTS PC : 


3; Routine Size: 35 words 
3; Maximum stack depth per invocation: 3 words 







a9 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 129 
MISCELLANEOUS CODING SECTION SEQ 0116 


7 3:4 —Dec-1 2:24:31 TOPS-20 BLliss-16 V2(212) 
- $5 ee- 1 Sho 85: 1:22 PA: <NEALE : 4.8L1.2 (23) 





routine WRT_DA (TST_PAT, index) : novalue = 
begin 


4 
4 1 
é 101 
4 4 !o¢ 
2 1% FUNCTIONAL DESCRIPTION: 
4 4 LOADS THE DESIRED SECTOR WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
4 107 i FORMAL PARAMETERS: 
4 108} 
4 : 109 i TST_P. 
> 13 ny CORRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
4 112 } x 
4 118 i USED BY THE MACRO WRT TO Bay THE CURRENT REGISTERS ADDRESS, 
114 i FORCED HI. FORCED LO DON'T CARE MASK INFORMATION. 
4336 115 in 
reo 116 
4 11 MLDA = WRT_MASK; 'LOAD MLDA WITH GENERATED WRT_MASK PATTERN 
4389 118 end; 
4397 167 164022 WRT.DA: JSR R1,$SAVE2 3 
4398 000010 MOV 10 
4399 ASL RO 
4400 ASL RO 
4401 ASL RO 
rer 4 MOV RO,R1 
013156 Weise) G6+2(R1) RO 
4404 000012 BIS 12(SP), 3; TST.PAT,* 
eae O131¢2 mov Reese Rt) Me 
440 BIS m: RE 
4408 173120 MOV Re. WL .REG+30 
4409 RTS F 





3; Routine Size: 20 words 
+ Maximum stack depth per invocation: 3 words 


FREES 
ono 


| 
(SP) ,RO > INDEX,* a7 
| 

| 

| 

| 
3099 
| 

| 

| 

| 





ay ML-11 LOGIC TEST 
MISCELLANEOUS 


N_9 
MACRO M1113 22=DEC-80 12:16 PAGE 130 


CODING SECTION 


ry 
oO 


FUN 


ae md et ts es 49 = ts —) = —s —) 4) Ih Ss 2s ts Ss ts 1 SS SS Ss SS 9 3) SS Sh) SS HH YS YS SY Yh Ss Ss 3 ts hs 3 YH HS YS 


SSKLETRERIS SSVK ALAN ASSSLEHEGALSESKVEGFEENASISY 





35506-1980 09:81:22 


routine RD_DA (TST_PAT, index, ERR_FLG) : novalue = 
begin 


14 
' FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
orta te SECTOR ety: REGISTER 
WITH THE MASKED DATA ping 
TED BY THE MACRO °WRT_MASK’ 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR +>" IS 
ASSIGNED A ONE TO INDICATE Ti 


FORMAL PARAMETERS: 


4 ge 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 


USED By THE MACRO RT MASK TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION 


ERR_FLG 
CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 

eric peytes 


GETS LOADED WITH THE GENERATED 
WRT DATA PATTERN THUS ALLOWING 
ER TO PRINT FAILING GOOD DATA. 


DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 

TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 








8.10 
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4522 ' 


CZMLABO ML 
MISCELLANEOUS CODING SECTION SEQ 0118 | 

“476 2mL4 32-Dec-1980 09: 4:31  TOPS-20 Bliss-16 v2(212) 

peek : —Dec-19 21:22 PA: <NEALE>BL3ML4.BL1.2 (24) | 

4479 : 171 of, LG = ZERO; ‘CLEAR THE ERROR FLAG 

6480 ; 17 T DATA = WRT MASK: iSAVE THE DATA WRITTEN TO THE REGISTER 

4481 : 7 RD-DA DATA = .MLBA or . IGNORE; iREAD AND SAVE THE REGISTER | 

cess : 173 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK | 

4485 : 31 'SET ERROR FLAG IF NEQ — 

pre 3 178 end; : 

64% 904167 163752 RD.DA: JSR R1.SSAVE2 ; 311 

4495 9200 76 000010 ~ CLR @10(SP) + ERR.FL 3171 

44% 1 000012 MOV 12(SP) ,RO : INDEX, 31 

4497 ge ASL RO ; 

4498 f ASL RO 

4499 ASL RO 

4500 10 010001 MOV RO,R1 

4501 12 016100 013156 MOV ML .REG+2(R1) RO 

4908 1 BIS 14(SP) ,RO : TST.PAT,* 

4 046100 013160 BIC ML.REG+4(R1),RO 

4504; 016102 013162 MOV -REG+6(R1) -R2 | 

4505 0201 BIS nO. : 

4506 | 172766 MOV “WT .DATA | 

4507 40 01 135008 MOV aL .REG+30 4 31 

4508 020144 056102 013162 BIS ma .REG*6 (RI) .R2 ’ 

4509 020150 010267 1727 MOV ~RD.DATA : 

4510 020154 026767 172746 172746 CMP WT .DATA,RD.DATA : 31 

4511 020162 001403 BEQ 1$ 

41¢ 020164 012776 000001 000010 MOV #1,a10(SP) : *,ERR.FLG 

415 172 000207 1$: RTS PC 2 311 

4515 ; Routine Size: 35 word 

$236 : Maximum stack depth a invocation: 3 words 
| 
| 
| 
| 
} 


| 
} 
| 
| 
' 
J 
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CZMLABO 
MISCELLANEOUS CODING SECTION yr SEQ 0119 
4 MLS $5 -pec~ 1388 99: 64:3] TOPS-20 Bliss-76 V2(212) 
t2 : —Dec-1980 09:21:22 PA: KNEALE 4.BL1.2 (25) 
4527 : 179 routine WRT_MR (TST_PAT, index) : novalue = 
4528 ; 180 begin 
4 3 181 
45350 ;: 1 $44 
i380 3 ! ; FUNCTIONAL DESCRIPTION: 
$232 : +4 : LOADS THE MAINTENANCE REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
4535 ; 187 ! FORMAL PARAMETERS: 
4536 ;: 188 =! 
4537 ; 189 ! TST_P. 
ce58 3 $135 : LoRRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
4540 ; 3136 ! INDEX 
4541 ; 319 $ USED BY THE MACRO WRT_MASK Ls SELECT aan icaiee REGISTERS ADDRESS, 
ri 4 ; 3194 =! FORCED HI, Y inemees LO AND DON'T CARE MASK INFORMATION. 
teea 136 , 
4545 : 197 MLMR = WRT_MASK; 'LOAD, MLMR WITH GENERATED WRT_MASK PATTERN 
tech $ 198 end; 
4554 174 006167 163644 WRT.MR: JSR R1,$SAVE2 3 31 
5 01 000010 MOV 10(SP) ,RO ‘ : INDEX,* 3197 
556 ASL RO 
4557 006300 RO 
4558 ASL RO 
4559 1 MOV RO,R1 
4560 16100 013156 Teta) -AO RO 
4561 000012 BIS 12(SP) ,RO P 3; TST.PAT,* 
+205 046100 013160 BIC ML .REG+4(R1) RO 
+287 016102 013162 at 5- 6+6(R1) .R2 
4565 0102 173032 MOV R2, aL .REG+120 
4566 42 000207 
4567 
4568 ; Routine Size: 20 word 


| 

RTS PC $ 3179) 
+ Maximum stack depth oa invocation: 3 words | 
| 

| 

| 

| 

| 

| 


CZMLABO ML-11 LOGIC TEST 
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MISCELLANEOUS CODING SECTION 


Seeeee 


4621 


ESERERERERE 


g 


ee kd dd ad od dd 
WONAULWN—O 


3 


KKISKISRIN 


“Dec-19 4: 
$5 pee-18bo 09:51; 


: novalue = 


TOPS-20 Blis 
PA: <NEALE 


row 
No— 


routine RD_MR (TST_PAT, index, ERR_FLG) 
begin 


$44 


FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
MAINTENANCE worsen WITH THE 
MASKED DATA 

GENERATED ay. THe MACRO "WRT_MASK'. 


IF THE gee IS_NOT EQUAL THEN 
THE FORMAL P TER ‘ERR FLG* IS 
ASSIGNED A ONE TO INDICATE THE 
ERROR. 


FORMAL PARAMETERS: 


TST_P, 
DATA. PATTERN TO oe MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY_THE MACRO WRT _MASK TO 

SELECT THE CURRENT RE REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


FLG 
CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE T 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT 


DATA 

GETS LOADED “re THE GENERATED 

WRT DATA PATTERN THUS ALLOWING 
CALLER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
ye LOCATION WR ae 
AND RD_DATA LOADED WITH GOOD 


AND BAD R REGISTER DATA 


SEQ 0120 


“+ v2(212) 
4.BL1.2 (26) 


EH 





| CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
ieee i 
8 oO 
; 23 -ERR FLG 
S = 
3 28 wT =DATA 
3 54 RD_DATA 
4640 ; 55 
4641 : 3$ 
tens : 58 
4644 ; 59 end; 
“8 gsr 
000010 
4654 000012 
pres 
i 
465 3156 
4660 000014 
4661 3160 
ee me 
4664 72610 
4665 752 
4666 013162 
4667 72576 
4668 72570 172570 
4670 020342 000001 000010 
4671 020350 
Pres 
46 
4674 


if .WT_DATA neq .RD_DATA then .ERR_FLG 


10 
MACRO M1113 22=DEC-80 12:16 PAGE "34 


fen: ; 
AUR or . IGNORE; 


RD.MR: JSR R1,$SAVE2 
CLR @10(SP) 
MOV 12(SP), 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
MOV ML .REG+2(R1) ,RO 
BIS 14(SP) ,RO 
BIC ML .REG+4(R1),RO 
MOV ma -REG*O (RI). *R2 
BIS a 
MOV R2.WT.DATA 
MOV aL .REG*+120,R2 
BIS ML .REG+6(R15 ,R2 
MOV R2,RD.DATA 
CMP WT .DATA,RD.DATA 
BEQ 1$ 
MOV #1,@10(SP) 

1$: RTS PC 

; Routine Size: 35 words 


+ Maximum stack depth per invocation: 


= ONE; 


'CLEAR_THE ERROR FLAG 
'SAVE THE DATA WRITTEN ji Faas REGISTER 


!READ AND SAVE THE REGIST 


!READ THE REG FOR WRT_MASK 


: INDEX,* 


: TST.PAT,* 


: *,ERR.FLG 


3 words 


[ 
SEQ 0121 
§ -Dec=1 4 9 $4: :31 TOPS-20 Bliss-16 V2(212) 
—Dec-19 1:22 PA: <NEALE>BL5ML4.8L1.2 (26) 
'SET ERROR FLAG IF NEQ 
. 
31 
: ERR.FLG 325 





ML-11 LOGIC TEST 


CZMLABO 
MISCELLANEOUS CODING SECTION 


gn 


4686 : 1 

4687 ; 

4688 ; 

4689 : 

4690 ; 5 

4691 ; 4 

1e98 : 

46% ; 

4695 ;: 70 

4696 ;: 71 

4697 ; ie: 

4698 ;: 

4699 ; 74 

4700 ;: 75 

4701 ;: $576 
3 _ 3277 


715 
4716 0001 
4717 6100 
4718 
4719 10 1 
4720 14 0161 
“72 0102 
% 142 
4724 000207 
4725 


routine WRT_PA (TST_PAT, 
begin 


144 


PROM_DIS = ONE; 
MLPA = WRT_MASK; 
PROM_DIS = ZERO; 
end; 
163466 WRT.PA: JSR 
000040 172710 BIS8 
000010 MOV 
ASL 
ASL 
ASL 
MOV 
13156 MOV 
12 BIS 
013160 BIC 
013162 MOV 
BIS 
172626 MOV 
000040 172640 io 


i FUNCTIONAL DESCRIPTION: 
: LOADS THE PROM ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
! FORMAL PARAMETERS: 

TST_PAT 

as tal DATA PATTERN TO BE LOADED IN THE REGISTER. 


index) 


F_10 
MACRO M1113 22=DEC-80 12:16 PAGE 435 


: novalue = 


4: 
1: 


3 


31 
22 


HE MACRO WRT MASK TO By THE CURRENT REGISTERS ADDRESS, 
CARE MASK INFORMATION. 


; Routine Size: 


+ Maximum stack depth rhe invocation: 


USED By Y Ti 
FORCED HI, FORCED LO AND DON'T 


R1,$SAVE2 
#60, aM .REG+1 20 
10(§P) ,RO 


R1 
-REG+2(R1) ,RO 
(SP) seta 

-REG+4(R1) .RO 
° Gs6(1) oR2 


s#aUFSSSS 


R2, aM .REG+100 
#0 .am. REG+120 


26 word 


. 
om 


'SET PROM DISABLE BIT 
'LOAD MLPA WITH GENERATED WRT_MASK PATTERN 
CLEAR PROM DISABLE BIT 


INDEX ,* 


TST.PAT,* 





pes 4 Bliss- 
A: <NEALE>8L 


SEQ 0122 


3276 
3260) 





6_10 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 136 
MISCELLANEOUS CODING SECTION 


4735 :ML4 -Dec-1980 09 
: : Sa an 9 4 
4 3 78 routine RD_PA (TST_PAT, index, ERR_FLG) : novalue = 
4 3 79 begin 

4740 ;: 

4741 : 81 f++ 

ribs 1 : : FUNCTIONAL DESCRIPTION: 

4744 ; a! COMPARES THE CONTENTS OF THE 

4745 ; 85! PROM ADDRESS REGISTER 

4746 : ¥] ' WITH THE MASKED DATA PATTERN 

ridt4 3 ; See : GENERATED BY THE MACRO ‘WRT_MASK’. 
4749 : Bo |! IF THE COMPARE IS ~ 9 EQUAL THEN 

4750 ; ' THE FORMAL PARAMETER ‘ERR \e IS 
4751 : 1 ! ASSIGNED A ONE TO INDICATE T 

4752 ;: 3292 ! ERROR. 

4753 : 3293! 

4754 ; 3294 ! FORMAL PARAMETERS: 

4755 ;: 3295! TST_PAT 

4756 ;: 3296 =! DATA PATTERN TO BE MASKED AND © 

4757 : 3297 |! COMPARED AGAINST THE CONTENTS 

ret 3 3298 : OF THE REGISTER UNDER TEST. 

4760 ; 3500 4 INDEX 

4761 ;: 301! USED BY THE MACRO WRT TO 

4762 ;: 3302 =! SELECT THE CURRENT REGISTERS poem. 
4763 ;: 3303 ! FORCED HI, FORCED LO AND DON'T CARE 
4764 : 3304 i MASK INFORMATION. 

4765 : 3305 _ |! 

4766 ;: 3306 =! ERR_FLG 

4767 ;: 3307 ! CONTAINS THE ADDRESS (PASSED BY REF) 
4768 ;: 3308 ! OF THE CALLERS ERROR FLG TO ENABLE THE 
4769 ; $08 $ CALLER TO EXAMINE THE ERROR STATUS . 
4770 : 10 ! OF THE ROUTINE CALL. 

Lae $512 | IMPLICIT IUTS 

278 3 3315 uT_DATA 

4774 ; sie ' GETS LOADED WITH THE GENERATED 
4775 : 315 ! WRT DATA PATTERN THUS ALLOWING 
4776 : 3316 =! ER TO PRINT FAILING GOOD DATA. 
4777 ;: 3317 =! 

4778 ;: 3318 ! DATA 

4779 : 3319! GETS LOADED WITH DATA READ FROM THE 
4780 ;: 3320 ! REGISTER THUS ALLOWING CALLER 

oral 3 $35, : TO PRINT FAILING BAD DATA. 

apes 5 3356 ! IMPLICIT OUTPUTS: 

4784 ; 324 CO! we} LOCATION WR_DATA 

4785 ;: 325! AND RD_DATA LOADED WITH GOOD 

o7e8 3 35 H AND BADR REGISTER DATA 

4788 : 308 i 

4789 ;: 329 


2:24:31 
2:21:22 


TOPS-20 Blis 
PA: <NEALE>8L 


“+ v2(212) 
4.8L1.2 (28) 


SEQ 0123 


pred 
479 
oR 
4795 ; 


G79? 


BSPOR CSUN CHODRRSE Zeca ct onscmNeedaees 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 





if pan neq .RD_DATA then .ERR_FLG = ONE; 
PROM_DIS = ZERO; 
end; 


000001 000010 
000040 172516 1$: 


; Routine Size: 
+ Maximum stack depth per invocation: 3 words 


RD.PA: 





H_10 
MACRO M1113 22=DEC-80 12:16 PAGE 3) 


pez 
oS 

Sye8 

Be fi 
3 


® ees © we & 


GR3AALPSZZSFe: 


Ben. 
gree 
>23 

28 

~2 

ar 

% 


"l- “DATA,RD.DATA 


#1,@10(SP) 
#4, @L .REG*+120 


41 words 


SEQ 0124 
— 99 $4331 TOPS-20 Blis => ee : 
—Dec-19 1:22 PA: <NEALE 4.BL1.2 (28) 
'CLEAR THE ERROR FLAG 
'SET THE PROM DISABLE BIT 
'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 
!READ THE REG FOR WRT_MASK 
'SET ERROR IF NEQ 
!CLEAR THE PROM DISABLE BIT 
: 32 
; ERR.FLG 3350 
: 3331 
: INDEX,* 3332 
:; TST.PAT,* 
: 3333 
3335 
: *,ERR.FLG 
3 3278) 





10 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 138 
MISCELLANEOUS CODING SECTION SEQ 0125 


sML4 F —Dec-1980 09: +f :31 TOPS=20 Bliss-16 V2(212) 
—Dec-1980 09:21:22 PA: <NEALE 4.BL1.2 (29) 


routine WRT_E1 (TST_PAT, index) : novalue = 
begin 


$44 

! FUNCTIONAL DESCRIPTION: 

; LOADS THE ECC CRC WORD REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
! FORMAL PARAMETERS: 


TST_PAT 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


USED BY THE MACRO WRT_MASK LB SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 





ECC_DM = ONE; :SET ECC DIAG MODE 
MLET = WRT MASK: 'LOAD MLE1 WITH GENERATED WRT_MASK PATTERN 
ECC_DM = ZERO; i€LEAR ECC DIAG MODE 
end: 
WRT.E1: JSR R1,$SAVE2 s 3339 
000001 172502 B1IS8 #1,@ .REG+120 5 3353 
ri iy MOV 10(SP) ,RO 3: INDEX,* 3354, 
ASL RO 
4874 ASL RO 
4875 ASL RO 
pre] MOV RO,R1 
013156 MOV ow pinalaeae 
4878 000012 BIS 12(SP), ; TST.PAT,* 
4879 pata 4 BIC ML .REG+4(R1) .RO 
4880 013162 MOV oe 
4881 BIS ¥ 
pro 4 172470 MOV R2,@ .REG+150 
000001 172432 oe 4 -@ .REG+120 ; perks 
4885 : 3 39 
4886 ; Routine Size: 26 word 
4887 + Max imum stack depth aoe invocation: 3 words 
4893 





=D -- 


J_10 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 139 . 
MISCELLANEOUS CODING SECTION SEQ 0126 
sML4 g -Dec-1980 09: > :31 TOPS-20 Blis = § Vv2(212) 
pr 3 : -Dec-1980 09:21:22 PA: <NEALE>BL3ML4.B8L1.2 (30) 
4898 ; 57 routine RD_E1 (TST_PAT, index, ERR_FLG) : novalue = 
4899 ; 58 begin 
4900 ; 59 
4901 ; '++ 
re! 5 1 ! FUNCTIONAL DESCRIPTION: 
4903 ;: ! 
4906 ; 4 COMPARES THE CONTENTS OF THE 
4905 : $ ECC CRC WORD REGISTER 1 
4906 ; 5 ! WITH THE MASKED DATA gl ny 
rf-a'24 3 ° : GENERATED BY THE MACRO ° 
4909 ;: 3368 ' gg By IS NOT EQUAL THEN 
4910 ;: 369 =! THE FORMAL PARAMETER ‘ERR_FLG’ IS 
rst 3 aan : ASSIGNED A ONE TO INDICATE THE ERROR. 
4913 ; $355 ' FORMAL P., 3 
4914 ; 3. 4 131 Pat 
4915 ; 4 ! DATA PATTERN TO BE MASKED AND 
4916 ; ro COMPARED AGAINST THE CONTENTS 
4917 ; 76 ! OF THE REGISTER UNDER TEST. 
4918 ; 3377 |! 
4919 ; $358 § INDEX 
4920 ;: 79 «! USED BY THE MACRO WRT TO 
4921 ;: 3380 ! SELECT THE CURRENT REGISTERS ere 
4922 ;: 3381 ! FORCED HI, FORCED LO AND DON'T CARE 
4923 : Seng § MASK INFORMATION. 
4926 : 3 ! 
4925 ;: 3384 ! 
4926 ;: 3385 =! SONTAINS THE ADDRESS (PASSED BY 1! 
4927 : 3386 =! OF THE CALLERS ERROR FLG TO ENABLE T 
4928 ;: 3387 |! CALLER TO EXAMINE THE ERROR STATUS 
4929 : 3388 =! OF THE ROUTINE CALL. 
4930 ;: 3389 =! 
4931 ;: 3390 ! IMPLICIT oo iat 
rit} 3 3391 =! wT 
4933; 308 $ ters. LOADED = THE GENERATED 
49%: : CALLER T DATA PATTERN THUS ALLOWING 
$352 Z : ER TO PRINT FAILING GOOD DATA. 
4937 ;: 96 ! DATA 
4938 : 7 ! GETS LOADED WITH DATA READ FROM THE 
4939 ;: : REGISTER THUS ALLOWING At ER 
44 | 3 399 : TO PRINT FAILING BAD DATA ‘ 
ioet 3 1 ! IMPLICIT OUTPUTS: 
4943 ; § GLOBAL LOCATION WR_DATA 
4944; § AND RD_DATA LOADED WITH GOOD 
4945 ;: : AND BAD REGISTER DATA 
4946 ; § 
4947 : !—< 
4948 ; 
4949 ; -ERR_FLG = ZERO; ‘CLEAR THE ERROR FLAG 





--——————--———_— 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


495 
495, 
4955 


1 
1 
1 
1 
1 
1 
1 
1 
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—Dec-1 :26:31  TOPS-20 BLis =16 v2(212) 
35 ee S80 es bed PA: <NEALE 4.BL1.2 (30) 
'SET ECC DIAG MODE 
Et “OATA = OR mask iSAVE THE DATA WRITTEN TO THE REGISTER 
RD-DATA = wml or or’ . IGNORE: iREAD AND SAVE THE REGISTER 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
ECC_DM = ZERO; 'SET ERROR FLAG IF NEQ 
iCLEAR ECC DIAG MODE 
end; 
163174 RD.E1: JSR R1,SSAVE2 ; 
000010 CLR @16(SP) t ERR.FLG 
000001 172412 BISB #1,aML.REG+120 ; 
000012 MOV 12(SP) .RO : INDEX,* 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV ML .REG+2(R1) RO 
000014 BIS 14(SP) ,RO : TST.PAT,* 
913160 BIC ML .REG+4(R1) RO 
013162 MOV a 6+6(R1) .R2 
BIS * 
1 MOV R2.WT.DATA 
172376 MOV aL .REG+150,R2 ; 
01 162 BIS Ma -REG+G(R1S .R2 
1721 MOV RD.DATA 
172162 172162 cme ur ‘DATA, RD.DATA : 
000001 000010 MOV #1,@10(SP) : *,ERR.FLG 
000001 172310 13: B1cB #1 al .REG+120 : 


3; Routine Size: 41 wo 


rds 
: Maximum stack Poth ow per invocation: 3 words 


SEQ 0127 


| 10 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 4] 
MISCELLANEOUS CODING SECTION SEQ 0128 


sML4 $5 pec~ 1380 poset! TOPS=20 Bliss-16 V2(212) 
—Dec-1980 09:21:22 PA:<NEALE>BL5ML 4.8L1.2 (31) 


18 routine WRT_E2 (TST_PAT, index) : novalue = 
1 begin 


1 te4 

§ FUNCTIONAL DESCRIPTION: 
4 

5 


Seunorae 





5010 : 

5011 : i LOADS THE ECC CRC WORD 

201 : i REGISTER 2 Gim A DATA PATTERN 

5013 : i GENERATED BY THE MACRO 

5014 ;: i 

5015 ; i 

5016 : i FORMAL PARAMETERS: 

5017 : i 

5018 ; i TST_P, 

5019 : LORRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

5021 ; i 

5022 : i USED BY THE MACRO 

2058 : i TO SELECT THE C TRECISTERS 

5024 : i ADDRESS, FORCED HI, FORCED 

5025 : i LO AND DON’T CARE MASK 

5026 : i INFORMATION. 

5027 : i 

5028 : i 

5029 ; 

5030 : ECC_DM = ONE; 'SET ECC DIAG | MODE 

5031 : MLE = %0°177700': iMASK OUT DATA DIAG BITS 

2032 : MLE = WRT_MASK; ‘LOAD MLE2 WITH GENERATED WRT_MASK PATTERN 

3 cei S ents 7 EAPC S fa oe 

5035 ;: end; 

202 ve 766 163052 WRT.E2: JSR R1,$SAVE2 F 341 
5044 000001 172274 BI #1. aM. .REG+1 : 344 
5045 021000 177700 172334 MOV #~100,ML .REG+166 : 3444 
2046 000010 MOV 10(SP5 .RO > INDEX,* 3445 
504 01 ASL RO 

5048 01 ASL RO 

5049 ASL RO 

5050 MOV RO,R1 

5051 13156 MOV m -REG 6+2(R1) RO 

505 12 BIS 12(SP) ,RO : TST.PAT,* 

SS Bite Sais iis may ane ne 

5055 021042 BIS ROAD 4 








CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


000207 
5 






oe ox 

10277 1 
‘Bes ar 

1 142 1 172212 
hee 





M10 
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3ML4 


R2,@ML .REG+160 
CLR ye gh 
BICB = #1, @AL..REG*+120 
RTS PC 


; Routine Size: 31 words 
3; Maximum stack depth per invocation: 


3 words 


SEQ 0129 | 


aon es pa es 


SEAR lank. Mal rtht on Ae *3 § 


ee a Ee — 


N 10 | 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE N65 | 








MISCELLANEOUS CODING SECTION SEQ 0130 | 
74 34 3 —Dec-1980 09:24:31 TOPS=20 Bliss-16 V2(212) 
, 3 —Dec-1980 09:21:22 PA: <NEALE 4.8L1.2 (32) | 
3 ; routine RD_E2 (TST_PAT, index, ERR_FI.G) : novalue = | 
78 ; begin 
79 ; 

5080 ; '4+ 
5081 i FUNCTIONAL DESCRIPTION: | 
2088 COMPARES THE CONTENTS OF THE 
5084 ECC CRC WORD REGISTER | 
2085 WITH THE MASKED DATA PATTERN | 
2086 GENERATED BY THE MACRO ‘WRT_MASK | 
5088 IF THE COMPARE IS NOT EQUAL THEN | 

5089 THE FORMAL PARAMETER ‘ERR FLG' IS 
5090 ASSIGNED A ONE TO INDICATE THE | 
5091 ERROR. | 
2095 FORMAL PARAMETERS: | 
“ 5095 TST_PAT 
* 5096 DATA PATTERN TO BE MASKED AND | 
5097 COMPARED AGAINST THE CONTENTS | 


OF THE REGISTER UNDER TEST. 


ee3e 


INDEX 
USED BY THE MACRO WRT TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG be 
CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT _DATA 
GETS LOADED WITH THE GENERATED 
hag DATA PATTERN THUS ALLOWING 
R TO PRINT FAILING GOOD DATA. | 
| 
| 
| 
| 
| 


BNRARWVASSBLESRES 


Be Se Se Be Ge Se Ge Be Ge Ge Be Be Ve Be Ge Ge Ge Ge Be Fe Ge Be Ge Fe Be Ge Be Be Se Ge Se Se Ge Ge Be Se Se Se Se 


RD_DATA 
ee “DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 


: 


WR_DAT. 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


Ww atalealtalatartal altaltatartalealtalealtaltaltaltaltalalealtalealtal areal 
St et ot ot os SB Oo ot 


SNRRRAVVS 













1 smL4 
131 ; 

1 

5133 ;: 

513% ; 

5135 ;: 
HEE 
ate, i 
5139 ; 
5140 ;: 
5141 ;: 
2166 : 
5143 ;: 
5144: 
5145 ;: 
5149 
5153 021064 
5154 070 
5155 074 
5156 196 
5157 11 
5158 114 
5159 11 
5160 1 
31 B31 
3188 1 
5164 134 
5165 140 
5166 144 
5167 1 
5168 15 
5169 1 
5170 j 
a7 Sane 
2178 OS1176 
ee 
5175 0 
5176 021216 
5177 
5178 
5179 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


SESRoR aS 


ad od 
Wwr—o 


‘ 
of 


—_-— 


11 
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SEQ 0131 
—Dec-19 1:26:31 TOPS=20 Bliss- 16 ye(2i2) | 
35 poem 1385 O3St ibe PA: <NEALE 30h | 
gERR FLG = = ZERO; 'CLEAR ERROR FLAG 
iSET ECC DIAG | MOOE 
REZ IASe eo" 177700" iMASK OUT DATA DIAG BITS 
TA = i SAVE THe DATA WRITTEN To THE REGISTER 
RDUDATA = “PLE? or . IGNORE; iREAD AND SAVE THE REGISTER 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
'SET ERROR FLG IF NEQ 
= %0'000000': iRESTORE MLE2 MASK 
Ete one ZERO; iCLEAR ECC DIAG MODE 
end; 
162754 RD.E2: JSR 1, SSAVE2 : 344 
900010 CLR @16(SP) t ERR.FLG 3 
900001 172172 BIS8 #1, aML.REG+120 : 350 
1 17223 MOV #~-100,ML.REG+166 : 3 
000012 MOV 12(SP5 ,RO : INDEX,* 3 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV ML .REG+2(R1),RO 
000014 BIS 14(SP) ,RO : TST.PAT,* 
013160 BIC ML.REG+4(R1) RO 
013162 MOV ma -REG*O (RT) .R 
BIS f 
171754 MOV R2.WT.DATA 
172156 MOV aL .REG+160,R2 ; 3 
013162 BIS ma, REGS (RTS .R2 
171742 MOV “RD. DATA 
171734 171734 Cr WI -DATA.RD. DATA : 3 
909001 000010 MOV #1,@10(SP) : *,ERR.FLG 
1721 1$: CLR ML -REG+166 : 3511 
000001 172056 B1cB #1,aML.REG+120 : 312 


3; Routine Size: 46 wor 


rds 
: Maximum stack depth per invocation: 3 words 








CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SEC 


3186 ML 
187 ° 


5188 ; 514 
5189 ; 515 
5190 ;: 218 
2192 ; 218 
2198 3 519 
5194 ; 350 
5195 ; 521 
5196 ; $2 
5197 ;: 5 
5198 ; $2 3 
2500 : 2 
5201 ; 3256 
5202 ; 3528 
oe 33 
5205 ; 531 
5206 ;: 235 
350e : 333, 
5209 3 3535 
5210 ;: 536 
5211 ;: 537 
$212 ;: 3538 
5213 ; $225 
5214 ;: 540 
5215 ;: 3541 
5216 ;: $20 
5217 : 54. 
5218 ;: 3544 
5219 ; 3545 
5220 ; 3546 
5224 
5228 004167 
5229 15, 
Se Biss te 
1 
a 
5 161 
5237 021 
5238 021264 046100 





1 
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TION 
3 —Dec-1980 09: +24: :31. - TOPS-20 BLliss-16 v2(212) 
22-Dec-1980 09:21:22 PA:<NEALE>BL3ML4.BL1.2 (33) 
routine WRT_PD (TST_PAT, index) : novalue = 
begin 
144 
FUNCTIONAL DESCRIPTION: 
i LOADS THE PROM DATA 
i REGISTER WITH A DATA PATTERN 
GENERATED BY THE MACRO 
i 
7 FORMAL PARAMETERS: 
‘ 
CURRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 
i x 
i USED BY THE MACRO WRT_MASK 
i TO SELECT THE CURRENT REGISTERS 
i ADDRESS, FORCED HI, FORCED 
i LO AND DON'T CARE MASK 
INFORMATION 
bow 
PROM_RW = ONE; 'SET PROM READ WRITE 
DAT_BM = ONE; iSET DATA DIAG MODE 
MLPD = WRT : iLOAD MLPD WITH GENERATED WRT_MASK PATTERN 
DAT_CLK = ONE; iDO_A DATA CLK 
PROM_RW = ZERO; iCLEAR PROM READ WRITE 
DAT_BM = ZERO; iCLEAR DATA DIAG MODE 
end; 
162620 WRT.PD: JSR R1,$SAVE2 : 
000100 172042 BISB =: #100, aML .REG+120 : 
000010 172034 BIS8B = #10, aL. REG+120 ; 
000010 MOV 10(SP) .RO > INDEX,* 
ASL RO 
ASL RO 
13156 MOV “REG+2(R1) .RO 
12 BIS 12(SP) ,RO : TST.PAT,* 
013160 | BIC ML.REG+4(R1) RO 


SEQ 0132 


3514 
3 


3541 
3542 





4 
A SA I. ay rca Be a eee 


D 11 | 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 146 
MISCELLANEOUS CODING SECTION SEQ 0133 | 
ML4 3 —Dec- 1980 09:24:31 T 
1 3 —Pec-1980 09:21:22 PA: 
1270 016102 013162 MOV -REG*E(RI) -R2 
SBI BBB a9 SE Be ee 
15 ea 171764 BIS8B o# Bae es38 ; 354 
10 142777 000100 171756 BICB #100, aML.REG+120 ; 
5248 021316 142777 000010 171750 BICB #10, aML.REG+120 : 354 
000207 RTS PC : 351 


5249 021324 
1 
58 


; Routine Size: 35 words 
3; Maximum stack denth per invocation: 3 words 





[> -- rr 


1 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE fa) 
MISCELLANEOUS CODING SECTION 


Es a pec n 1980 08:34:33 


routine RD_PD (TST_PAT, index, ERR_FLG) : novalue = 
begin 


5% 


; 549 
2508 3 550 !4+ 
7: 551 | FUNCTIONAL DESCRIPTION: 
5268 : 238 i 
3269 : 553 Ci COMPARES THE CONTENTS OF THE 
70 : 554 OC PROM DATA REGISTER 
5271 : 555 i WITH THE MASKED DATA PATTERN 
2 ore : 3396 GENERATED BY THE MACRO 'WRT_MASK 
7%: 3558 | IF THE COMPARE IS NOT EQUAL THEN 
5275 : 3359 i THE FORMAL PARAMETER "ERR FLG' IS 
5276 : 560 i ASSIGNED A ONE TO INDICATE THE 
5277 : 3561 | ERROR 
5278 : $208 ! 
5279 : 3 i FORMAL PARAMETERS: 
5280 : 3564 | 
5281 : 3565 | TST_PAT 
5282 : 3566! DATA PATTERN TO BE MASKED AND 
5283 : 3567 | COMPARED AGAINST THE CONTENTS 
5284 : 3568 | OF THE REGISTER UNDER TEST 
5285 : 3569 | 
5286 : 3570 | INDEX 
5287 : 3571 | USED By THE MACRO WRT TO 
5288 : 3572 | SELECT THE CURRENT REGISTERS ADDRESS. 
5289 : 3573 | FORCED HI, FORCED LO AND DON'T CARE 
5290 : 3574 MASK INFORMATION. 
2590 3376 ERR.FLG 
3598 : 3577 | CONTAINS THE ADDRESS (PASSED BY REF) 
5294 : 3578 | OF THE CALLERS ERROR FLG TO ENABLE THE 
5295 : 3579 | CALLER TO EXAMINE THE ERROR STATUS 
5296 : 3580 i OF THE ROUTINE CALL. 
5297 : 581 
5298 : 3 i IMPLICIT INPUTS: 
5299 : 3 i WT_DATA 
5300 : 5384 GETS LOADED WITH THE GENERATED 
5301 : 585 i WRT DATA PATTERN THUS ALLOWING 
5302 : 586 ER TO PRINT FAILING GOOD DATA. 
5303 : 587 | 
5304 : 53a i DATA 
5305 : 589 i GETS LOADED WITH DATA READ FROM THE 
5306 : 590 REGISTER THUS ALLOWING CALLER 
3307 : 391 TO PRINT FAILING BAD DATA. 
5309 : 593 | IMPLICIT OUTPUTS: 
5310 : 59% GLOBAL LOCATION WR_DATA 
5311 : 595 | AND RD_DATA LOADED WITH GOOD 
5312 : 59% AND BAD REGISTER DATA 
5313 : 597 i 
5314; 598 I= 





| woe 4 Bliss-16 V2(212) 
ALE>BL3ML 4.8L1.2 


(34) 


SEQ 0134 





————————--- 





F 11 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 148 
MISCELLANEOUS CODING SECTION SEQ 0135 
ZML4 3 ~Pec-1980 09: 4:31  TOPS-20 Bliss-16 v2(212) 
: —Dec-1 :21:22  PA:<NEALE 4.BL1.2 (34) 
3 599 - 
3 .ERR_FLG = ZERO: 'CLEAR ERROR FLG 
: 1 RW = ONE; iSET PROM READ WRITE 
3 DAT_BM = ONE; iSET DATA DIAG MODE 
: WT_BATA = WRT_MASK; iSAVE THE DATA WRITTEN TO THE REGISTER 
3 RD_DATA = .MLPD or .IGNORE; iREAD AND SAVE THE REGISTER 
: if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
: 'SET ERROR FLAG IF NEQ 
3 PROM_RW = ZERO; iCLEAR PROM READ WRTE | 
: 10 DAT_BM = ZERO; iCLEAR DATA DIAG MODE | 
: 11 end; 
3339 904167 162512 RD.PD: JSR SSAVE2 ; 3547 
7 1 CLR @16(SP) + ERR.FLG 
I3¢ 100 171730 BISB #100, @ML.REG+1 ; 
152777 000010 171722 BIS8 #10,aML.REG+1 : 
1 000012 MOV 12(SP) .RO : INDEX,* 360 
ASL 
ASL RO 
ASL RO | 
0001 MOV RO.R1 
6100 013156 MOV ML .REG+2(R1),RO | 
5349 056600 000014 BIS 14(SP) ,RO : TST.PAT,* | 
100 013160 BIC ML .REG+4(R1) RO 
6102 013162 MOV ma -REG*O(RI) Re | 
3358 BIS i | 
41 171512 MOV R2.WT.DATA 
53 414 171764 MOV aL .REG+230,R2 : 3604) 
102 013162 BIS ma -REG*6 (RT) .R2 | 
3356 1026 171500 MOV ~RD.DATA 
430 67 171472 171472 Cr WI -DATA.RD.DATA : 3606 
440 re 000001 000010 MOV #1,@10(SP) z *,ERR.FLG 
646 1 000100 171620 1S: BICB =: #100, aM .REG+120 : 
454 142777 000010 171612 BICB © #10, @ML .REG+120 : 361 
021462 7 RTS PC : 354 | 
5364 ; Routine Size: 47 words 
5365 ; Maximum stack depth per invocation: 3 words 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SEC 
M4 

5374 ;: 

5 ; 

5376 ; 

5 ; 

5378 ;: 

5379 : 

5 ; 

5381 : 

Ae 

5384; 

5385 ;: 

oee8 3 4 
387 ;: 

5388 ; 

5389 ;: 7 
5390 ;: 

5391 ;: 

2395 $ 1 
53% ; 

5395 ;: 363. 
5396 : 3634 
5397 ;: 3635 
5398 : 3636 
5399 : 3637 
5403 


G 11 
Thon MACRO M1113 22=DEC-80 12:16 PAGE 149 


22-Dec-1980 09:24:31 — TOPS=20 BLisg=16 v2¢212) 


—Dec-1980 09:21:22 PA: <NEAL 


routine WRT_EL (TST_PAT, index) : novalue = 
begin 


!ee 

i FUNCTIONAL DESCRIPTION: 
i DUMMY ROUTINE CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGORITHEM 


om PARAME TERS: 
i DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 


INDEX 

USED BY THE MACRO WRT TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION 


' 
! ERROR LOCATION REG IS READ ONLY 
return; 
end; 
WRT.EL: RTS PC 


; Routine Size: 1 word 


3; Maximum stack depth per invocation: 0 words 


ALE>BL3ML4.BLI.2 (35) 


SEQ 0136 


3612 


= --- catalan — 


H 11 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 150 


IMPLICIT INPUTS: 
WT _DATA 


GETS LOADED WITH THE GENERATED 
WRT_MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 

TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
ao LOCATION WR_DAT * 
AND RD_DATA LOADED WITH GOOD 
Aix BAD R REGISTER DATA 


BRERESSSNSonaN tees 


MISCELLANEOUS CODING SECTION SEQ 0137 
18 :M4 -Dec-1980 09: 4:31 ie, ooile, poy 6 v2(212) 
3 3 zo-pec-1960 op 2:21:22 eal? eei4 (36) 
1; routine RD_EL (TST_PAT, index, ERR_FLG) : novalue = 
54 § 3 9 begin 
4: 1 !44 
3052 3 § : FUNCTIONAL DESCRIPTION: 
5427 : 3644 =~! COMPARES THE CONTENTS OF THE 
5428 ;: 5 ! ERROR LOCATION REGISTER 
En ; : WITH THE CONTENTS OF TST_PAT. 
5431 ; 3648 =! IF THE COMPARE IS NOT EQUAL THEN 
5432 ;: 3649 =! THE FORMAL PARAMETER ‘ERR FLG’ IS 
5433 : $030 ' ASSIGNED A ONE TO INDICATE THE 
543%; 51 ! ERROR 
5435 ; 2 ! 
5436: 5 ' FORMAL PARAMETERS: 
5437 ; 54! TST_PAT 
5438 ;: S22 $ DATA PATTERN TO BE MASKED AND 
5439 ; 56! COMPARED AGAINST THE CONTENTS 
5440 : 3657 =! OF THE REGISTER UNDER TEST 
5441; 3658 =! 
are6 3 3659 =! INDEX 
5443 ; Seat 4 USED BY THE MACRO WRT TO 
5444; » § SELECT THE CURRENT REGISTERS ADDRESS, 
5445 ;: 3662 =|! FORCED HI, FORCED LO AND DON'T CARE 
5446 ; 3663 | MASK INFORMATION. 
5447 : 3664 =! 
5448 : 3665! ERR_FLG 
5449 : 3666 =! THE ADDRESS ey BY REF) 
5450 ;: 3667 ! OF THE CALLERS ERROR FLG TO ENABLE THE 
5451 ;: ’ CALLER TO EXAMINE THE ERROR STATUS 
5452 ;: § OF THE ROUTINE CALL. 
5453 : ' 
5454 ; ! 
2 ' 
4 i 
J i 
. i 
4 i 
: i 
3 i 
. i 
4 i 
. i 
; i 
4 i 
4 i 
4 i 
4 i 
: i 


REESE SATS a rer 


-ERR_FLG = ZERO; 








11 
ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 151 


CZMLABO 
MISCELLANEOUS CODING SECTION 


SEQ 0138 
74 :ML4 —Dec-19 :26:31 TOPS-20 Bliss-16 Vv2(212) 
Sirs 35 ee~ 1360 $534 32 PA: <NEALE>BL SML6.BLI.2 (36) 
7? ; 90 WT_DATA = .TST_PAT: ISAVE THE DATA WRITTEN TO THE REGISTER 
ore : : 14 RD_DATA = “MLEL;: 'READ AND SAVE THE REGISTER 
5480 : 95 if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 'READ REGISTER FOR WT_DATA 
5482 ; end; 
5486 | 
Co a ea eC ee : AA 5 
oe e . * 
2498 $66 eae 171670 1714 MOV a .REG+220,RD.DATA : 3691 
54 506 026767 171416 17141 cop RD. DATA, WT. DATA : 369 
549% 021514 001403 BEQ 1$ 
5495 021516 012776 000001 000002 MOV #1,a2(SP) : *,ERR.FLG | 
2496 1524 000207 1$: RTS PC : 3638 
5498 ; Routine Size: 16 word 
rot : Maximum stack depth oar invocation: 0 words 
5505 





J_11 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 152 
MISCELLANEOUS CODING SECTION SEQ 0139 
reid sML4 . $5 -Dec=1980 2g6: 31 TOPS-20 Bliss-16 V2(212) 
; -Dec-1980 09:21:22 PA: <NEALE>8L3ML4.BLI1.2 (37) 


5510 ; 444 routine WRT_EE (TST_PAT, index) : novalue = 

5511 ; 9 begin 

ael¢ 5 98 

5513 ; 99 !4+ 

5514 ;: i FUNCTIONAL DESCRIPTION: 

5515 : 1 i DUMMY NE CALL TO ASSIST IN THE READ 

5516 ;: me i WRITE REGISTER ALGORI THEM 

5517 : 703 

5518 ;: i FORMAL PARAMETERS: 

5519 : 705} 

5520 ; re i DATA PATTERN TO BE MASKED AND 

5521 ;: 70 i COMPARED AGAINST THE CONTENTS 

2256 3 708 OF THE REGISTER UNDER TEST 

5523 ;: 3709 

5524 ; 3710 x 

5525 ;: 3711 i USED id THE MACRO WRT TO 

- 5526 ; at; i Pearce THE CURRENT REGISTERS oo 

5527 ;: 371 i FORCED HI, FORCED LO AND DON'T CARE 

5528 : $13 i MASK INF ORMATION. 

5529 : 715 

5530 ;: 3716 i— 

5531 ;: 3717 

ress s 3718 ! ECC ERROR REGISTER IS READ ONLY 

5533: 3719 return; 

225 3 3720 end; 
5 021526 000207 WRT.EE: RTS PC : 

Bas sate 
S44 ; Routine Size: 1 word 
a2e3 ; Maximum stack depth per invocation: 0 words 

5551 


A 


—————————————__-- ——- 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


K 11 
MACRO M1113 22-DEC-80 12:16 PAGE is3 


553 :ML4 —Dec-1980 09:24:31 
dee —Dec-1980 09:21:22 
2229 g routine RD_EE (TST_PAT, index, ERR_FLG) : novalue = 
5557 ;: begin 

5558 ;: 

5559 ; '+4 

3200 : , re. DESCRIPTION: 

2208 3 COMPARES THE CONTENTS OF THE 

seer 3 ECC ERROR REGISTER WITH TST_PAT. 

5565 ; F THE COMPARE IS tr” EQUA. THEN 

5566 ; THE FORMAL PARAMETER ‘ERR . IS 

5567 ; ASSIGNED A ONE TO GNDICATE f 

5568 ;: ERROR. 

5569 ;: 

5570 ;: FORMAL at he S$: 

5571 ;: TST_P. 

5572 : DATA PATTERN TO 1 

5573 : COMPARED AGAINST THE CONTENTS 

2328 3 OF THE REGISTER UNDER TEST. 

5576 : INDEX 

5577 : USED BY THE MACRO MLEE TO 

2378 3 SELECT THE CURRENT REGISTERS ADDRESS. 


A ea es ee 


AINS THE ADDRESS (PASSED 

BY REF) OF THE CALLERS ERROR FLG TO ENABLE 
THE CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT = 
WT _DATA 


GETS LOADED WITH THE TST_PAT 


5589 : THUS ALLOWING CALLER TO PRINT 
5590 ; THE FAILING DATA. 

5591 ;: 

5592 : 

5593 : ters. LOADED WITH DATA READ FROM THE 
559% ; REGISTER THUS ALLOWING CALLER 
3232 $ TO PRINT FAILING BAD Lemans 
5597 ;: IMPLICIT OUTPUTS: 

5598 : ey rete WR_DATA 

5599 ;: AND RD ‘A LOADED WITH GOOD 
2600 3 AND BADR REGISTER DATA 





!CLEAR 
SAVE THE REG! 


TOPS-20 Blis 
PA: <NEAL 


E>6L 


THE ERROR FLAG 
SAVE os TA WRITTEN TO ne REGISTER 
'READ AND STER 


SEQ 0140 


=) v2(212) 
4.BL1.2 (38) 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


sML4 


n° 


773 
774 
775 
776 


1 many 


11 
MACRO M1113 22-DEC-80 12:16 PAGE 56 


33pec=1980 09:51 :22 


if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 
'SET THE ERROR FLAG IF NEQ 


end; 
000002 


ta 16 


171354 
000001 


RD.EE: CLR 
MOV 
MOV 
CMP 
BEQ 
MOV 
1$: RTS 


; Routine Size: 
3; Maximum stack 


aeSS) ut 
-REG+2 
TA,WT.DATA 


1 


-DA 
a2 


(SP 


word 
th pe 


DATA 
210,RD.DATA 


) 


s 
r invocation: 


'READ MLEE FOR TST_PAT 


0 words 


; ERR.FLG 
3; TST.PAT,* 


3; *,ERR.FLG 


TOPS=-20 BLlis 
PA: <NEALE>8L 


$33 


5 


SEQ 0141 


j 
i 
| 





411 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE ts8 


MISCELLANEOUS CODING SECTION SEQ 0142 | 
IMLS —Dec-1 2:24:31 TOPS=20 Blis 16 v2(212) 
a 8 yas 1) 83 1:22 PA: <NEALE 4.BLI.2 (39) 
$ routine WRT_D1 (TST_PAT, index) : novalue = 
oe%e } Ma} begin 
53 

as 3 780 !4+ 
5647 ; 1 | FUNCTIONAL DESCRIPTION: 
5648 ;: i LOADS THE DATA DIAG REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
5649 ;: i FORMAL PARAMETERS: 
5650 ; i TST_PAT 
oe! $ 5 CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
5653 ;: 7 i USED BY THE MACRO WRT LA SELECT THE CURRENT REGISTERS ADDRESS, 
o028 3 = FORCED HI, FORCED LO DON'T CARE MASK INFORMATION. 
ts 4 5 790 
5657 ;: DAT_DM = ONE; {SET DATA DIAG MODE 
5658 ; MLOT = WRT_MASK; _ {LOAD MLD1 WITH GENERATED WRT_MASK PATTERN 
5659 : DAT_DM = ZERO; iCLEAR DATA DIAG MODE | 
5660 ; end: 
5668 021570 906167 162250 WRT.D1: JSR R1 : 
5669 021574 152 000010 171472 BISB #1 16a £e6+120 : 3791 
5670 1 000010 MOV 10(SP) ,RO 3: INDEX,* 
5671 ASL RO 
2076 61 ASL RO | 
56 61 ASL RO 
5674 614 MOV RO,R1 
5675 61 61 13156 : MOV 3 pt plea -RO 
56 12 BIS 12(SP) .RO 3 TST.PAT,* 
56 1 013160 BIC ML.REG+4(R1) ,RO 
= 1 013162 at a 6+6(R1) .R2 
5680 ier? 171500 MOV R2, a. .REG+170 
5681 644 142 000010 171422 B1CB 416" @L .REG+120 3 379 
Hed 652 000207 RTS PC 3 
5684 3; Routine Size: 26 word 
5685 : Maximum stack depth oor invocation: 3 words 
5691 





| N11 
CZMLABO ML-11 LOGIC TEST. MACRO M1113 22~DEC-80 12:16 PAGE 156 
MISCELLANEOUS CODING SECTION 


smL4 


3 


Siesasaene 


g 


REO EIST ETERS TST SNSSARANSSEPREEEEREES 


5745 
57 





795 
79 


WONAULWN$O 


ese SS 


PERE 


routine RD_D1 (TST_PAT, index, ERR_FLG) 
begin 


'44 


i FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 

DATA DIAG REGISTER 1 

WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WR jean 


IF THE COMPARE IS NOT EQUAL T. 
THE FORMAL PARAMETER ‘ERR Flee i's 
2) ee A ONE TO INDICATE T 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 
CONTAINS THE ADDRESS (PASSED BY REF) 
ERROR FLG TO ENABLE 


OF THE CALLERS FL T 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT _DATA 


GETS LOADED ex THE GENERATED 
ee tens DATA PATTERN THUS ALLOWING 
ER TO PRINT FAILING GOOD DATA. 


DATA 

GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 

TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 


eyed LOCATION WR DATA 
RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


33° 


: novalue = 


ec-1980 09:24:31 


ec-1980 09 


2:21:22 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE 


4.BLI -2 (40) 


SEQ 0143 














2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 95} , a 
MISCELLANEOUS CODING SECTION SEQ 0144 | 
49 M4 —Dec-19 :26:31  TOPS-20 BLiss-16 v2(212) 
5736 3 35 peen 1385 O3 S430 PA: <NEALE 4.BLI.2 (40) | 
le 3 7 
5753 : .ERR_FLG = ZERO; 'CLEAR THE ERROR FLG 
2734 3 9 DAT_BM = ONE iSET DATA DIAG MODE 
5: 50 ML_FUNC = write: iL LOAD mi cst WITH WRITE FUNCTION 
2736 : 31 DAT_CLK = ONE; iDO A DATA CLK 
5758 : 2§ if .REG_INIT_FLG IS_SET 'SEE IF CALLER IS REG INIT TEST 
5759 : 54 iSET ERROR FLAG IF NEQ 
5760 PtH then 
5761 : 56 in 
5762 : 3857 CLR_MBUS; 'CLEAR MBUS TO GENERATE INIT DATA | 
5763 : 58 DAT_DM = ONE; 
2766 : 3859 end; 
5766 : 1 WT_DATA = WRT_MASK; 'SAVE THE DATA WRITTEN TO THE REGISTER | 
2767 ; RD_DATA = .MLD1; iREAD AND SAVE THE REGISTER | 
5769 : 3864 if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; ‘READ MLD1 FOR WRT_MASK | 
5771 : 3866 'SET ERR_FLG IF NEQ 
2778 : ? CLR_MBUS; iCLEAR TRE MBUS 
777 ° — en | 
5781 021654 006167 | 162164 RD.D1: JSR R1,$SAVE2 : 
2782 021660 005076 000010 CLR @16(SP) t ERR.FLG 
664 15 000010 171402 BISB #10, ama .REG+120 : 384 
. 5784 $72 777 000077 171254 BICB am. : 
ores 706 B55 sed 131 48 BIsB 50a Regs +120 3851 
2787 714 rer oie 000001 ow G.INIT.FLG,A1 : 3385 
5789 152777 900040 171262 BIS8 #40,aML.REG+40 ; 38 
es iets Sic 
BIC R1 
2798 7 90000 171244 BICB 46 #7, @ML.RE 
150177 171240 BIS8 = R11. aM .REG+4 
579% 021754 152777 000010 171312 BIS8 #10, aML.REG+120 : 38 
2795 762 000012 1$: mov 13($P) .RO : INDEX,* 3361 
5797 ASL RO 
5798 ASL RO 
5799 021774 010001 MOV RO,R1 
5800 021776 016100 013156 MOV ML -REG+2(R1) ,RO 
5801 056600 000014 BIS 14 (SP) ,RO : TST.PAT,* 
5802 022006 046100 013160 BIC ML.REG+4(R1) RO 











‘12 
ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE ‘58 


CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0145 | 
: ZML4 32-Dec-1980 09:24:31 T 
3 Pec 1980 09:21:22 PA: 
16102 013162 Moy mS G+6(R1) ,R2 | 
1 171102 MOV R2.WT. 
19 ; 1 of 171314 171076 MOV al .REG+170,RD.DATA ; 
¥ 767 171072 171066 cw RD.DATA, ; ; 
18 & 1 000001 10 MOVs #1.@10( SP) : *,ERR.FLG | 
4 171136 28: BIS8 #40,aML.REG+40 
3815 | 1 MOV R2 
16 ¥. 1 BIC a R2 
5817 0c 1 000007 171120 BICB 3s #7. AML. REG+40 
5518 150277 171114 , BIS8B R2,a@4L.REG+40 
5819 000207 ° RTS PC 





; Routine Size: 75 words 
; Maximum stack depth per invocation: 3 words 


SERSE 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


a 


FENSESKSRRNVRRS 


PU RRRARELS a1 14 Lica ada ea eet Scio ci 


eens 


3 
SS 


_ 
Ww 
N 


ces 


8 


So 2k 
or 
== 


BS 


_ 
a 


: 


D 12 
MACRO M1113 22-DEC-80 12:16 PAGE 159 


$5 -pec~ 1380 8 09: 4:31 TOPS-20 Bliss-16 V2(212) 
Dec-1980 09:21:22 PA:<NEALE>BL35ML4.BLI. 


peat (TST_PAT, index) : novalue = 


FUNCTIONAL DESCRIPTION: 
LOADS THE DATA DIAG REG 2 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
FORMAL PARAMETERS: 
TST_PAT 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


USED BY THE MACRO WRT TO SELECT mak a REGISTERS ADDRESS, 
FORCED HI, FORCED LO DON'T CARE MASK TION. 


DAT_DM = ONE: {SET DATA DIAG MODE 
MLD2 = WRT_MASK; OAD "D2 WITH GENERATED WRT_MASK PATTERN 
DAT_DM = ZERO; ikoae FAR DATA DIAG MODE 
end; 
161736 WRT.D2: JSR R1,$SAVE2 : 
000010 171160 BI1S8 #10,aML.REG+120 : 
000010 MOV 10(SP) ,RO > INDEX,* 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV mi RE RES+2(R1) RO 
12 BIS 12(SP), : TST.PAT,* 
013160 BIC ML..REG+4(R1) RO 
013162 mov ma -REG*OCRI), *R2 
171176 MOV R2. al .REG+200 
000010 171110 B1cB #0, a. Re eGs1 20 : 


: Routine Size: 26 word 
> Maximum stack depth on invocation: 3 words 


SEQ 0146 | 





2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 560 
MISCELLANEOUS CODING SECTION SEQ 0147, 


sML4 § -Dec-1 2:24:31 TOPS-20 Bliss-16 V2(212) 
—Dec-19 2:21:22 PA: <NEALE>BL3ML4¢.BLI1.2 (42) 


routine RD_D2 (TST_PAT, index. ERR_FLG) : novalue = 
begin 


$44 


i ; arr DESCRIPTION: 
COMPARE THE CONTENTS OF THE 
DATA DIAG REGISTER 
WITH THE MASKED DA 


FORMAL PARAME RR_FLG'' I 
sige A ONE to INDICATE THE 





FORMAL PARAMETERS: 


~ 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 
INDEX 

USED " THE MACRO WRT 


TO 
SELECT THE CURRENT REGISTERS aS 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFOMATION. 


Ee cit 


591 

5914 

5915 CONTAINS THE ADDRESS yey BY REF) 
5916 OF THE CALLERS ERROR FLG TO ENABLE THE 
5917 CALLER TO EXAMINE THE ERROR STATUS 
a8 OF THE ROUTINE CALL. 

5920 DOLICHT te 

5921 


Tet LOADED WITH THE GENERATED 
T DATA PATTERN THUS ALLOWING 


SRARSSEREESEREEEE EEE EE 


5924 ER TO PRINT FAILING GOOD DATA. 
SS 

OTs. LOADED WITH DATA READ FROM THE 
5928 REGISTER THUS ALLOWING CALLER 
23 TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
oo Soe oe DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


»*) 
SYKAEANSS 





Cre ee eee 


F 12 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 161 
MISCELLANEOUS CODING SECTION 


sf smL4 

1 eo 

Bee ; -ERR_FLG = ZERO; 
DAT_BM = ONE; 


: 39 ! 
Soe? ; 0 ! 
: 1 mM FUNC = write: : 
5945 ; § DAT. ¢ = ONE; 
5946 : 
5947 ;: if .REG_INIT_FLG IS_SET 
5948 ;: 5 then 
5949 : in 
pti Lm 
3 = 3 
232 3 9 3 
5954 : 1 WT_DATA = WRT_MASK; 
5955 : § RD_ DATA = .MLD2: 
5957 ; if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE; 
5958 ;: 5 
3360 ? CLR 
rs) 3 a. 
004167 16165 RD.D2: JSR SSAVE2 
76 00001 @16(SP) 
1 000010 171070 #10, a. .REG+120 
LL 142777 0000 170742 BICB ev. 
f. 152777 1 170734 BIS8 -@4.REG 
2220 1 171046 B1S8 a -REG+120 
2226 4 1 000001 a REG. INIT. -FLG,41 
O ¢ 
022236 1 pate 170750 B1S8 #402. .REG+40 
022, 171 MOV aL Ri 
02228 1 BIC Os #1 R1 
122254 1 7 170732 BICB 4s #7 AML. REG+40 
022062 150177 1 BISB «RI, @ML-REG+40 
022066 1 B1SB #10,aML.REG+120 
20 ' 1$: MOV 12($P) .RO 
: ASL 
ASL RO 
225 ASL 4 
ees MOV Ri 
« MOV meee AY RO 
+ BIS 14(SP) ,RO 
7 BIC ML .REG+4(R1) RO 
MOV ML .REG+6(R1) .R2 
BIS RO,R2 








33 pec=1980 09: 


OAD 
DO A DATA CLOCK 


4:31 


1:22 PA: <NEALE>8L3ML4 .8L1 


'SEE IF CALLER IS REG INIT TEST 
!CLEAR MBUS TO GENERATE INIT DATA 


: SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


'READ MLD2 FR WRT_MASK PATTERN 


'SET ERROR FLAG IF NEQ 


'CLR MASS BUSS 


+ INDEX,* 


TST.PAT,* 





TOPS-20 Bliss-16 V2(212) 
-2 (42) 


SEQ 0148 | 





» fe) 


12 
MACRO M1113 22-DEC-80 12:16 PAGE 96) 





ZMLABO ML-11 LOGIC TEST 
ISCELLANEOUS CODING SECTION SEQ 0149 
ZML4 23-Dec-1980 09:24:31 TOPS 
; 22-Dec-1980 09:21:22 PA:< 
MOV —sR2, WT. DATA | 
2338 MOV .REG+200,RD.DATA ; 3952 
ei CMP RD.DATA,Wi .DATA : 3954 
6000 BEQ | 
6001 02; MOV #1,@10(SP) : *,ERR.FLG 
6008 , 2s BI1S8 #466,aML.REG+40 
MOV mL Re 
6004 BIC wi R2 
6005 BICB = #7, AML. RES*+40 | 
6006 BISB R2.aML.REG+40 
600 RTS PC : 3887 
6009 ; Routine Size: 75 words 


; Maximum stack depth per invocation: 3 words 


gag 
Ano 


| 


CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE Wa? 
MISCELLANEOUS CODING SECTION 


“018 IML4 33-Dec-1980 09 1:24:31 TOPS-20 Bliss-16 V2(212) 
6019 : —Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BLI.2 (43) 
1; 959 routine WRT_D3 (TST_PAT, index) : novalue = 
§ ; 960 begin 
3 961 - 
6025 3 FUNCTIONAL DESCRIPTION: 
6027 : 5 i LOADS THE DATA DIAG 
6028 : i REGISTER 3 WITH A DATA PATTERN 
6029 GENERA TED BY THE MACRO 
6031 : 9 i leat 
6032 : 3970 i FORMAL PARAMETERS: 
OM : 3972 | TST_PAT 
6035 : 3378 i CURRENT DATA PATTERN TO BE 
6036 : 7% | LOADED IN THE REGISTER. 
6037 : 3975 
Be: BL UE ue macro wt 
6040 ;: 3978 | TO SELECT THE CURRENT REGISTERS 
6041 : 3979 | ADDRESS, FORCED HI, FORCED 
6042 : 3980 LO AND DON'T CARE MASK 
6043 : 3982 i INFORMATION. 
6044 ;: 4 
6045 : i 
6046 ;: 3984 
6047 : 3985 DAT_DM ‘SET DATA DIAG MODE 
6048 : 3986 MLE = £0'000377': iMASK OUT ECC CRC WORD BITS 
6049 : 3987 MLE = WRT_MASK; iLOAD MLE2 WITH GENERATED WRT_MASK PATTERN 
6051 : DAT sta 7 TERD: "100300" iCheAR B BATA DIAG MODE. 
P = ° 
6052 : 395) end; 
6060 022414 004167 161426 WRT.D3: JSR R1 : 
6061 132 000010 170646 B1S8 #10, aML.REG+120 : 
6068 012767 000 170706 MOV #377 .ML..REG+166 ; 
000010 mov 19¢ + INDEX,* 
See Ast ORO 
oer MOV RO.R1 
6068 16100 013156 MOV mi -REG*2(R1) .RO 
6069 54 1 BIS 12(SP) ,RO : TST.PAT,* 
6070 022460 046100 0131 BIC ML .REG+4(R1) RO 
6071 022464 016102 013162 MOV ML .REG+6(R1) .R2 


SEQ 0150 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


re 


208 Her 100 


Geese 102777 


12 
MACRO M1113 22=DEC-80 12:16 PAGE 164 


3ML4 
BIS aA 
MOV R 69th REGS 160 
170636 MOV #~77500 ,ML.REG+166 
10 170562 B1¢B 4 alta 6+120 


RTS 
; Routine Size: 32 word 


s 
3; Maximum stack depth per invocation: 


3 words 









MACRO M1113 22-DEC-80 12:16 PAGE 1 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0152 
6091 :M4 g —Dec-19. 83: 4:31 TOPS-20 Bliss-16 V2(212) 
os ; —Dec-19 21:22 PA: <NEALE>BL3ML4.8L1.2 (44) 
609% routine RD_D3 (TST_PAT, index, ERR_FLG) : novalue = 
6095 begin 
6096 
6097 'o4 
6098 i FUNCTIONAL DESCRIPTION: 
6100 COMPARES THE CONTENTS OF THE 
6101 BATA DIAG REGISTER 3 
o108 WITH THE MASKED DATA PATTERN 
oly GENERATED BY THE MACRO ‘WRT_MASK"’. 


Soggesasssseyss s CEE: 


6105 IF THE COMPARE Is, NOT EQUAL THE 

6106 FORMAL RR_FLG'’ IS 

6107 ASSIGNED A One To INDICATE THE 

6108 ERROR. 

6109 

6110 FORMAL PARAMETERS: 

gig TST_PAT 

611 DATA PATTERN TO BE MASKED AND 

6114 COMPARED AGAINST THE CONTENTS 

6115 401 OF THE REGISTER UNDER TEST. 

6116 401 

6117 4014 INDEX 

6118 4015 USED BY THE MACRO WRT TO 

6119 4016 SELECT THE CURRENT REGISTERS ADDRESS, 

61 4017 FORCED HI, FORCED LO AND DON'T CARE 

6121 4018 MASK INFORMATION 

6122 4019 
4020 ERR_FLG 
4021 CONTAINS THE ADDRESS (PASSED BY REF) 
402¢ OF THE CALLERS ERROR FLG TO ENABLE THE 
402 CALLER TO EXAMINE THE ERROR STATUS 
4024 OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 


GETS LOADED WITH THE GENERATED 
WRT DATA PATTERN THUS ALLOWING 


8 


% , R TO PRINT FAILING GOOD DATA. 
40. DATA 

40. GETS LOADED WITH DATA READ FROM THE 
4034 REGISTER THUS ALLOWING CALLER 

4035 TO PRINT FAILING BAD DATA. 

40 IMPLICIT OUTPUTS: 

4038 GLOBAL on ION WR_DATA 

4039 AND RD_DATA LOADED WITH GOOD 

rive AND BAD REGISTER DATA 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


— aot at SC 
—— 
“I 


~) 








K 
MACRO M1113 22-DEC-80 12:16 PAGE 1 


if .REG_INIT_FLG IS_SET 
then ; 
n 


WT_DATA = WRT 


RD_DATA = .MLE2 or . IGNORE: 





SEQ 0153 


$5 -pec~ 1300 09:24:31 TOPS-20 Bliss-16 V2(212) 
—Dec-1980 09:21:22 PA:<NEALE>BL3ML4.B8L1.2 (44) 


'CLEAR ERROR FLAG 
!SET DATA DIAG MODE 


‘LOAD WRITE FUNCTION TO MLCS1 
!DO A DATA CLOCK 


‘SEE IF CALLER IS_ REG INIT TEST 
'CLEAR MBUS TO GENERATE INIT DATA 


'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; IREAD THE REG FOR WRT_MASK 


MLE2 MASK = %0°100300'; 
CLR : 


004167 161324 RD.D3: JSR 
00507 1 CLR 
170610 
19 170534 B1S8 
1 1cB 
1 1 B1S8 
170512 B1S8 
000001 CHP 
BNE 
170414 81S8 
i MOV 
1 BIC 
7 170376 8108 
1 81S8 
000010 170444 BISB 
000012 1$: MOV 
ASL 
ASL 
is 
013156 MOV 
000014 BIS 





G+120 
REG. INIT.FLG,41 


'CLEAR THE MASS BUS 


ERR.FLG 


> INDEX,* 


: TST.PAT,* 


ay 





2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 4} 


MISCELLANEOUS CODING SECTION SEQ ons 
ZML4 32-Dec- —Dec- 1980 09: 4:31 
; —Dec-1980 09:21:22 
913160 BIC ML.REG+4(R1) RO 
131 MOV -REG*O (RT) Re 
BIS 
} MOV *WT.DATA 
1 MOV ai. .REG+160,R2 : 
0 0131 BIS -REG+6(R15 ,R2 
1 170, MOV “RD. DATA 
2 150S%e 170214 ow ur “DATA,RD.DATA : 
4 1 000010 MOV #1 ,10(SP) : *,ERR.FLG 
5 100 170410 28: MOV #77500 ,ML.REG+166 : 
é 170254 BISB #40,aML.REG+40 
? 4 MOV bul 
8 1 BIC a 
19 000007 170236 BICB = #7 , AMAL. REG+40 
170232 BI1SB R2.amL. 
6221 RTS ; 3991 





; Routine Size: 84 word 
: Maximum stack depth oer invocation: 3 words 


SSE 


| 
| 
| 
| 
| 
| 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 





m4 
5 3 4065 
$ 4 
5 406 
3 4068 
oe: 
1: ton i 
; 460 
$ or 
3 4074 
5; 4075 
3 407 
7; 40 
5 4078 
6269 ; 4079 
6250 ; 4080 
6252 3 4081 
6253 ;: on 
6254 ; 4084 
6255 ;: 4085 
6256 ;: 4036 
6257 ;: 4087 
6258 ; 4088 
6259 : 4089 
6260 ; 4090 
6264 
6268 022764 000207 
6269 
6270 
6271 
6276 
6277 


a 12 
MACRO M1113 22=DEC-80 12:16 PAGE 1 


SBeeHON goa:s) Jae aU Blue eee 


routine WRT_DS (TST_PAT, index) : novalue = 
begin 


'++ 

i FUNCTIONAL DESCRIPTION: 
i DUMMY NE CALL TO ASSIST IN THE READ 
WRITE REGISTER ALGORITHEM 


[ POEs, PARAMETERS : 
TST_PAT 
DATA PATTERN TO BE MASKED 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 
NDEX 
USED BY THE MACRO WRT 


TO 
SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


i DRIVE STATUS REG IS READ ONLY 
= 


WRT.DS: RTS PC 
; Routine Size: 1 word 


3; Maximum stack depth per invocation: 


-——_— ee —— SeSC—SS —— 


SEQ 0155 


:21:22 PA: <NEAL 1S .BLl-2 (45) 















Eee aie eee EE cert Pea Ree Toe 


Be Se Se Se Ge So Ge Se Be Se Fe Ge Ge Be Be Be Fe Se Ge Be Be Ve Fe Se Se Ge Ge Fe Se Ge Ge Ge Se Be Se Ge Be Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Se Se Ge Ge 


a 


35 


fs 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


79 34 
1 


et ee Ne a ot a 


RERRERRRARSRSRSRRSSS 
DUS SSISKGKRUNSSVSVRVRUNVSSarseARRaw—-oS 


FRAKRARARARRRARRARSESR 
eee ed es st dk et Sh 
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33 pee= 1980 


routine RD_DS (TST_PAT, index, ERR_FLG) : novalue = 
begin 


'oe 
' FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
DRIVE eh y REGISTER WITH THE 
paid A PATTE 

ED BY THE MACRO °WRT_MASK’, 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR 4 IS 
rsinee A ONE TO INDICATE T 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT TO 
SELECT THE CURRENT REGISTERS ADDRESS. 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS +e y BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 


GETS LOADED WITH THE GENERATED 
ar Ae DATA PATTERN THUS ALLOWING 
R TO PRINT FAILING GOOD DATA. 


DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 

TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
eyed LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD R REGISTER DATA 





! 
SEQ 0156 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE 


$.BL1.2 (46) 


eee eee 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 





5 sms. 
1 i 
HO Re 

: oe 
wi hg 
ese : 4151 
css Waaes ute 
6556 16600 
6358 
eset 616100 
eas ; 
6364 161 
6365 
oso 1 
S53 as 
e370 $2696? 
Gs Beate Se 
6575 207 
6375 
6376 
6382 


a 


-ERR FLG | = My 
WT_DATA 
RD_DATA = OL S$ or 


end; 
161052 
0 


1$: 


3; Routine Size: 
> Maximum stack depth per invocation: 


RD.DS: 


* IGNORE; 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 


BRRLPZSZSxe2 


13 
MACRO M1113 22=DEC-80 12:16 PAGE #70 


See 
= 


R1 
eREG+2(R1) ,RO 
(SP) ,RO 

-REG+4(R1) .RO 
—_— oR2 


mas 
2S 
3 


aml .REG+50 
ML. Ress tM R2 


oRD.DATA 
WT. DATA,RD.DATA 
Al -@10(SP) 


35 words 





=“) te 
4.B8L1.2 


33-pec=1980 09:81:22 


pres Bliss- 
ent! 
'CLEAR 


THE ERROR FLAG t 
; SAVE THE DATA WRITTEN THE REGISTER 
!READ AND SAVE THE REGISTER 


'READ THE REG FOR WRT_MASK 
'SET ERROR FLAG IF NEQ 


+ ERR.FLG 
+ INDEX,* 


: TST.PAT,* 


; *,ERR.FLG 


3 words 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


cM 
5: 

6387 ; 1128 
ores 3 415 

2 4154 
6390 ; 2182 

3 e139 

$ _ 4158 

3 4159 
oer? 3 4160 

: 4161 
6397 ; 41 
6398 ; 41 
6399 ;: 4164 
6400 ; 4165 
6401 ;: 4166 
6402 ; 4167 
6403 ; 4168 
6406 ;: 4169 
6405 ;: 4170 
6406 ;: 4171 
6407 ; 41 
6408 ; 41 
6409 ;: 4174 
6410 ; 4175 
6411 ;: 4176 
Ne 3 4177 
6413 ; 4178 
6416 ; 4179 
6415 ; 4180 
6416 ; 4181 
6417 : 41 
6418 : 41 
6419 ;: 4184 
6420 ;: 4185 
6421 ; 4186 
6422 ;: 4187 
6423 ;: 4188 
6424 : 4189 
6425 ;: 4190 
6426 ;: 4191 
6427 ;: tins 
S55 4194 
nS) 3 4195 
6431 ; 21% 
Aes 3 419 
6435 ; 4198 
OH: 4199 
6435 ;: 4200 
6436 ;: 4201 
6437 ; 420 
6438 ; 420 


13 
MACRO M1113 22-DEC-80 12:16 PAGE ‘71 


§ —Dec-19 24:31 TOPS-20 Bliss-16 V2(212) 
—Dec-19 21:22 PA: <NEALE>8L3ML4¢.BLI.2 (47) 
: novalue = 


routine WkT_REG (TST_PAT, REG_SEL., index) 
begin 


Yee 
i FUNCTIONAL DESCRIPTION: 

A ROUTINE TO SELECTIVELY 
CALL ED ROUTINES WHICH 
pa Ah TO INDIVIDUAL ML11 
REGISTERS 


FORMAL PARAMETERS: 


CASE SELECT EXPRESSION TO 
SELECT THE WRITE REGISTER 
ROUTINE TO CALLED 


DATA. PATTERN WHICH THE SELECTED 
REGISTER WILL BE TESTED AGAINST 


INDEX 

LOADED WITH THE ML_REG INDEX 
SELECT NUMBER OF TRE REGISTER 
BEING TESTED 


SIDE tt iy as ' ie ee 
WHEN A WRITE REGISTER ROUTINE Is CALLED 
THE VARIABLE * INDEX" FROM THE CALLING 
TEST IS LOADED WITH THE REGISTERS 
ML_REG INDEX NUMBER. 


THIS ENABLES THE CALLING TEST JO FIND 
THE FAILING REGISTER ADDRESS. 


Ne i te te ee 
. 


a from 0 to 13 of / !SELECT THE WRITE REGISTER ROUTINE CALL 
e 


C0) 


WRT_CS1 (.TST_PAT, .index = 0); 'CALL ROUTINE TO LOAD MLCS1 


J: 
WRT_ER (.TST_PAT, .index = 6); 
C2) 


!CALL ROUTINE TO LOAD MLER 


WRT_DA (.TST_PAT, .index = 3); 'CALL ROUTINE TO LOAD MLDA 


(3) : 
WRT_MR (.TST_PAT, 


[4] : 


- index = 10); 'CALL ROUTINE 10 LOAD MUAR 


SEQ 0158 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


6440 :ML4 
6441 ; 


—— 
RORSS 


4 


6481 
cass 
6484 
6485 
eas? 
6488 
6489 
6490 
6491 
og) 


9 


ss 
as 


oe 


ad ad td od od 
CONAULWIN—O 


NIMOY 


BEER ERARE REESE ERS 


7 
MM 
= 
Oo 


WRT_E1 (.TST_PAT, .index = 13); 
(5) : 
WRT_E2 (.TST_PAT, .index = 14); 
(6) : 
WRT_PA (.TST_PAT, .index = 8); 
[7] 
WRT_PD (.TST_PAT, .index = 19); 
C8) 
WRT_EE (.TST_PAT, .index = 17); 
C9) 
WRT_EL (.TST_PAT, .index = 18); 
(10) : 
WRT_DS (.TST_PAT, .index = 5); 
(11) : 
WRT_D1 (.TST_PAT, .index = 15); 
C12] : 
WRT_D2 (.TST_PAT, .index = 16); 
[13] : 
WRT_D3 (.TST_PAT, .index = 14); 
tes; 
WRT .REG: JSR R1,$SAVE2 
MOV 10(SP), 
MOV 14(SP) ,R1 
MOV ne. Re 
ASL 
- ADD 1 a ),PC 
; “WORD $-}s 
-WORD 4$-1$ 
-WORD 5$-1$ 
- WORD met 
- WORD 1$ 
-WORD 8$-1$ 








D_13 
MACRO M1113 22-DEC-80 12:16 PAGE 173 


33pec=1980 09:01:22 


!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 
!CALL ROUTINE 


!CALL ROUTINE 


TO LOAD MLE1 


TO LOAD MLE2 


TO LOAD MLPA 


TO LOAD MLPD 


TO LOAD MLEE 


TO LOAD MLEL 


TO LOAD MLDS 


TO LOAD MLD1 


TO LOAD MLD2 


TO LOAD MLE2 


> INDEX,* 
: TST.PAT,* 
: REG.SEL.* 


TOPS-20 BLliss-16 V2(212) | 
PA: <NEALE>BL3ML4.BLI.2 (47) 


SEQ 0159 | 


, 3 | 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 75 | 
MISCELLANEOUS CODING SECTION SEQ 0160 | 
















6495 ZML4 2 —Dec-1980 09:24:31 TOPS 
A 3 —Dec-1980 09:21:22 PA:< 
O49 | 
6498 .WORD 9$-1$ | 
6499 “WORD  10$-1$ 
“WORD 11$-1$ 
6501 WORD 1¢8-18 | 
6508 “WORD 13$-1$ 
. “WORD  14$-1$ 
6504 0 “WORD 15$-1$ J 
6505 2s: MOV R1,-(SP) : 419 
6508 CLR (RO) | 
650 CLR -(SP) 
6508 174272 JSR PC,WRT.CS1 
BR ra; : 4188 
6510 Oo: 3$: MOV R1,-(SP) : 41 
6511 000006 MOV ) 
61g MOV (RO) ,-<SP) 
651 174432 JSR PC_WAT.ER 
6514 023. BR 16 : 41 
6515 $ 4$: MOV R1,-(SP) : 41 
6516 023. 000003 MOV #3. (RO) 
6517 025. MOV (RO) ,-(SP) 
6518 02322 174572 JSR PC WRT .DA 
6519 0232¢ BR 16$ ; 41 
26 5$: MOV R1,-(SP) : 4201 
000012 MOV #15, (RO) 
6 MOV (ROS ,=(SP) 
174732 JSR PCWRT MR ‘ 
0146 6S: MOV R1,-(SP) : 4204 
§ 012710 000015 MOV #15, (RO) 
1 MOV (ROS , (SP) 
0. $7 175300 JSR PC WRT.E1 
05354 $ 7% OV 168 (SP) : 420 
Bee fice my see | 
784 175470 JSR PC.WAT.E2 
57 57 BR 6$ F 41 
j 46 3s: MOV R1,-(SP) : 421 
35 — roy GD 
25. 78] 175036 JSR PC ,WRT.PA aa 
6540 9S: MOV R1,-(SP) : 4213 
6541 023 +6 000023 mov #25, (RO) , 
e543 12552 76 175666 JSR PC WAT .PD a 
6545 0235. 46 10$: MOV R1,-(SP) : 4216 
6546 5336 000021 MOV #21, (RO) 
654 ar 046 MOV (ROS ,=(SP) 
6548 023 67 176156 JSR PC WRT .EE 
6549 2 BR é$ : 4188 

















F_13 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0161 | 
6551 3ML4 3 —Dec-1980 09:24:31 TOPS 
$3 ; Dec=1980 09:21:22 — PA:< 
65 118: MOV R1,=(SP) : 4219 
6555 000022 MOV #22, (RO) | 
6396 MOV (ROS , =(SP) 
65 176076 JSR PC WRT.EL | 
65 BR 16$ : 41 
65 12$: MOV R1,-(SP) : 422 
6560 000005 MOV #5. (RO) 
6561 MOV (RO) ,=(SP) 
6568 e 177360 JSR PC WRT .DS 
BR 16% : 41 
6564 13$: MOV R1,-(SP) : 42 
6565 000017 MOV #17, (RO) 
6566 MOV (ROS ,~(SP) | 
656 176146 JSR PC ,WRT.D1 
6568 BR 16$ : 4188 
6969 146$: MOV R1,-(SP) : 422 
000020 MOV #26, (RO) 
6571 MOV (ROS ,=(SP) 
637¢ + 176442 JSR PC ,WRT.D2 “4 
6574 15$: MOV R1,-(SP) : 4231 
6575 000016 MOV =: #16, (RO) | 
6576 MOV ROS ,~(SP) 
6577 176736 JSR PC,WRT.D 
6578 023456 16$: CMP (SP)+, (SP)+ : 415 
79 023460 000207 RTS PC : 41521 
6581 ; Routine Size: 123 word | 


s 
; Maximum stack depth per invocation: 5 words 


G_13 
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MISCELLANEOUS CODING SECTION 


6590 :ML4 2-Dec-1980 09:24:31 TOPS-20 Blis 
$23) 3 22-Dec-1980 09:21:22 PA: <NEALE>8L 
6593 ;: 4235 routine RD_REG (TST_PAT, REG_SEL, ERR_FLG) : novalue = 

6594 ; 4 begin 

6595 ;: 4237 

6596 ; 4 + 

6597 ;: 4039 FUNCTIONAL DESCRIPTION: 

6598 ; 4240 | A ROUTINE TO pELECTIVELY 

6599 ; 42461 ! CALLED ROUTINES WHICH 

6600 ; 4 $8 ! READ TO INDIVIDUAL ML11 

6601 ; re : REGISTERS. 

pet 3 4245 |! FORMAL a 
6604 ; 4 “$ ' ERR_FLG 

6605 ; 4247 ! CONTAINS THE ADDRESS (PASSED BY REF) 

6606 ; 4248 =! OF THE CALLERS ERROR FLG TO ENABLE THE 

6607 ;: 4249 ! CALLER TO EXAMINE THE ERROR STATUS 

6608 ; 4250 ! OF THE ROUTINE CALL. 

6609 ; 4251 ! 

6610 ; 4252 ! 

6611 ; 4253! CASE SELECT EXPRESSION T' 

asle ; 4254! SELECT THE WRITE REGISTER 

6613 ;: 4255! ROUTINE TO CALLED 

6614 ;: 4256! 

6615 ; 4257 ! 

6616 ; 4258 ! DAIR. PATTERN WHICH THE SELECTED 

6617 ;: 4259! REGISTER WILL BE TESTED AGAINST 

6618 ;: 4260 ! 

6619 ; 4261 !-- 

6620 ; $506 

6621 ; 4 case .REG_SEL from 0 to 13 of 'SELECT THE READ REGISTER ROUTINE CALL 
rei} 3 4264 set 

6623 ; 4265 

6624 ; 4266 C0] : 

6625 ; 4267 RD_CS1 (.TST_PAT, 0, .ERR_FLG); 'CALL ROOUTINE TO READ MLCS1 
6626 ; 4268 

6627 ;: 4269 C1] : 

6628 ; $579 RD_ER (.TST_PAT, 6, .ERR_FLG); 'CALL ROUTINE TO READ MLER 
S50 $ $s¢ [2] : 

6631 ; 42 RD_DA (.TST_PAT, 3, .ERR_FLG); 'CALL ROUTINE TO READ MLDA 
6632 ;: 4274 

6633 ;: 4275 (3] : 

en 3 $578 RD_MR (.TST_PAT, 10, .ERR_FLG); 'CALL ROUTINE TO READ MLMR 
6636 ; 4278 (4] : 

6637 ; 4279 RD_E1 (.TST_PAT, 13, .ERR_FLG); 'CALL ROUTINE TO READ MLE1 
6638 ; 4280 

6639 ; 4281 (5] : 

“ 3 ; RD_E2 (.TST_PAT, 14, .ERR_FLG); 'CALL ROUTINE TO READ MLE2 
oot 3 4284 (6] : 

6645 ; 4285 RD_PA (.TST_PAT, 8, .ERR_FLG); 'CALL ROUTINE TO READ MLPA 
6644 ;: 4286 





=16 V2(212) 
4.BL1.2 (48) 


SEQ 0162 
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(7) : 
RD_PD 
(8) : 
RD_EE 


(9] : 
RD_EL 


(10) : 
RD_DS 

(11) : 
RD_D1 


(12) : 
RD_D2 


(13) : 
RD_D3 


tes; 


RD 


1$: 


3 


(.TST_PAT, 
(.TST_PAT, 
(.TST_PAT, 
(.TST_PAT, 
(.TST_PAT, 
(.TST_PAT, 


(.TST_PAT. 


-REG: 


se5egseasegsagee*= <= 


17, .ERR_FLG); 
18, .ERR_FLG); 
5, ~ERR_FLG); 
15, .ERR_FLG); 
16, .ERR_FLG); 


14, .ERR_FLG); 


anes? 
& eee 


Ss 
sd 


PERE ERTS 
PAARAAAWM 


¢% 


Ds sd 
Aaa ees 
BeOosove 


1 ¥9 


SEQ 0163 


2:26:31 
2:21:22 


TOPS-20 Bliss-16 V2(212) 


$5 pec~ 1389 
PA: <NEALE 4.BLI.2 (48) 


-Dec-1980 
!CALL ROUTINE TO READ MLPD 
!CALL ROUTINE TO READ MLEE 
!'CALL ROUTINE TO READ MLEL 
!CALL ROUTINE TO READ MLDS 
!CALL ROUTINE TO READ MLD1 
!CALL ROUTINE TO READ MLD2 
'CALL ROUTINE TO READ MLE2 


+ ERR.FLG,* 
: TST.PAT.* 
t REG.SEL.* 


3 4267 


3 
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CZMLABO I 
MISCELLANEOUS CODING SECTION SEQ 0164 
6701 ZML4 22-Dec-1980 09:24:31 TT 
6 3 22-Dec-1980 09:21:22 PA: : 
6706 0 CLR -(SP) 
6 MOV RO,-(SP) | 
6 173754 JSR PC_RD.CS1 | 
6 BR 16$ : 4263 
6 23 3$: MOV R1,-(SP) : 4270 
000006 MOV #6,-(SP) 
671 MOV RO,-(SP) 
6711 0, 174114 JSR PC-RD.ER 
671 BR 16$ : 4 
6713 0; 4$: MOV R1,-(SP) : 42 
6714 000003 MOV #3,~-(SP) 
6715 0 MOV RO.-(SP) 
6716 174254 JSR C.RD.DA 
671 BR ; 426 
6718 5$: MOV R1,-(SP) : 427 
6719 0c 000012 MOV 18,-(SP) 
MOV »~(SP) 
6 174414 JSR PC-RD.MR 
BR : 4 
¥. 6S: MOV R1,-(SP) : 42 
000015 MOV #15 ,-(SP) 
MOV »=(SP 
* 174776 JSR PC-RD.E1 | 
> BR : 4 
7$ MOV R1,~(SP) : 4 
i 000016 MOV #16,-(SP) 
6 MOV (SP) 
175200 JSR -E2 
BR 1 $ 4 
, 8S: MOV R1,-(SP) : 4285 
eonete my ant 
Ne 174534 JSR PC_RD.PA 
BR 16$ : —_ 
9S: MOV R1,~(SP) : 4 
000023 MOV #25. (SP) 
6740 MOV (SP) 
6741 0. 175406 JSR PC,RD.PD 
678 Ye BR 168 : 4263) 
67 S72 10$: MOV R1,-(SP) : 4291 
oes & — a ert 
6746 175572 JSR PC_RD.EE 
er , 11$ fOV 16s (SP) : 4294 
ores 000022 MOV #22.~(SP) | 
6750 0. MOV »=(SP) | 
6751 175512 JSR PC RD.EL 
6736 12$ tov 168 (SP) : 1383 
6754 000005 MOV #5.-(SP) 
6755 MOV RO, (SP) 
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J_13 
MACRO M1113 22=DEC-80 12:16 PAGE 178 


MISCELLANEOUS CODING SECTION 





4310 


ML 
176774 JSR PC,RD.DS 
BR 16$ 
13$: MOV R1,-(SP) 
000017 MOV af, «7 (SP) 
MOV ) 
175644 JSR PC’RD.D1 
BR 16$ 
14$: MOV R1,-(SP) 
000020 MOV #20.~(SP) 
MOV .=(SP) 
176140 JSR PC.RD.D2 
BR 16$ 
15$: MOV R1,-(SP) 
000016 MOV #16,-(SP) 
MOV RO,-(SP) 
176450 JSR PC-/RD.D3 
000006 16$: ADD #6. SP , 
RTS PC 


; Routine Size: 124 word 


s 
; Maximum stack depth per invocation: 


! <BLF /PAGE> 


— $$ > ——— COC - 


6 words 


SEQ 0165 


TOPS 
PA:< 


4263 
4300 


4235 


K_13 
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MISCELLANEOUS CODING SECTION SEQ 0166 | 


ob 3ML4 g —Dec-1980 09: sgh :31 ae 4 Bliss-16 V2(212) 
; —Dec-1980 09:21:22 ALE>BL3ML4¢.BLI.2 (49) 


4311 BGNMSG (DUMPER); | 
af 004767 000004 DUMPER: : JSR ences 3 4311 
Tuas Ris. ec | 


; Routine Size: 4 words 


+ Maximum stack depth per invocation: 0 words 
6811 
| 6812 : 4312 
| 6813 : 4313! 44 
| 6814 : 4314 FUNCTIONAL DESCRIPTION 
| 6815 : 4315 UPON COMPLETION OF ERROR mes SAGES 
| 6816 : 4316 i DUMP OUT ALL PERTINENT DRIVE AND 
6817 : 4317 RH REGISTERS 
6818 : 4318 i 
6819 : 4319 
6820 : 4 INTB (ONE_FMT, PHR_14); ‘PRINT REGISTER DUMP MESSAGE 
6821 ;: 4 PRINTB (FMT~23);: ‘PRINT DUMPER COLUMN HEADINGS 
6822 : 4 PRINTB (FMT~26, REG_1, MLCS1, .MLCS1): iPRINT OUT THE RH & ML11 REGISTER CONTENTS 
: 4 PRINTB (FMT~26, REG 18, mc, MLW); 
6824 : 4 PRINTB ( REG=19, jen: 
6825 : 4 PRINTB (FMT 24, REG-6 ‘mDAS 
: 4 PRINTB ( " ?, LDA, ADA) "MLCS2): 
6827 : 4 PRINTB (F . Ree » MLDS, .MLDS); 
6828 : 4 ( > REG 3. MLER, .MLER): 
6829 3 4 PRINTB (Fi » REG_5, MLAS, .MLAS): 
: 4 PRINTS (F , REG 6, MUMR, .MLAR): 
6831 : 4331 PRINTB (F » REG 7, MLDT, .MLDT): 
685e : 4 PRINTS (F ‘ REG9 MLSN, .MLSN): 
: Pi PRINTB (FMT~26, REG 14, MLEE, .MLEE); 
68% 3 4 4 PRINTB (FMT~24. Ree-te° MLEL, .MLEL): 
6836 : 4 if .LST_DUT_REG eql 21 'SEE IF THIS IS A RH70 
6837 : 4 begin ‘IF YES THEN PRINT RH70 REGISTERS 
6839 : 4 PRINTB (FMT _ a ); 
6840 : 4 0 PRINTE (FMT rf mess. mest: 
6842 ; 4342 






SEQ 0167 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>BL3ML4.B8LI.2 (49) 


33 pec=1980 09:01:22 


13 
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Ss 
B. $3 RT 
ve Seecve Sescve § 
osheleLashekeeazk 


_BERRSERESERBEBESEDREDESEREEDESERRERESEREED 


; 


gos Os RENE CESNE BENE RESN BEEN 
es il Gece Stee Suse Sete ee 


--o ro 


4343 ENDMSG; 


ce 


S65-555555-555555-555555— 


i ced geek aoe 
o 


BA Fed ree HER reuse HERA 
Soo5— S SSS555— 





$55RGGEDIS LEVIN RTI SGSTSSSSCE REIEETERTETENEERES 
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MISCELLANEOUS CODING SECTION 
34 








327 
| 
| 

z 


4 hd Fed oS cs | tea hha 


wv wv wv wv 


SEQ 0168 








| 
| 
Lb 
2 
| % & S S % & & 
| “3 ot) he oo Be a ee Oe ow we Le 
- soo gigé | steS gash gig shgh  S8S 
8 SGT ie Fite ERT he Sette Selle Seite elle 
. BES. BENS. BENS. EER, HESMD, BERS FEARS 
. 2 Seoc2 Seoc72 Steg Seoe Store Store Seocre 3 
‘ setdeicackeetes +hetecarheteds, ste WEgnekotenetetecace 
2 
S  SSSESSERSERSESESEEEDESSERRESRSEDERRESEEDESEseeeeeeSs 
2. 
= 
2 
| # 
~ we 
S58 
a * $3 = 
eg aE a a wel ices S 
88 
58 
: 
a 
oz 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTI SEQ 0169 | 
5 IMLS $o-pocn1 908 09:24:31 T 
; c~Dec-1980 09:21:22 PA: 
1 MOV WL .REG+220, (SP) 3 4 
1 MOV ML .REG+2. =(SP) 
1 MOV #REG.15,-(SP) | 
6961 0, MOV = #FMT.24.=(SP) | 
MOV = #4, = (SPS | 
+ MOV SP,RO Py SP,* | 
isc) TRAP 
\ 166316 000025 49 37 .buT. -REG, #25 3 4 
Be8 166 MOV a Reese 40, <> g 4 
) 166 MOV 2 
1 MOV oREG. 3 al 
MOV #FMT . 4, -(SP) 
6971 MOV «#4, = (SPS | 
ore my, SP ,RO : SP,* 
697% 166546 MOV @ML.REG#250, (SP) ; 4340 
6975 166542 MOV ML .REG+250,-(SP) 
6978 10454 MOV WREG. 21,-(SP) 
722 MOV MFT .24,-(SP) 
6978 MOV #4,-(SPS 
MOV — SP_RO : SP.s 
6980 TRAP 164 
6981 000022 ADD #22, 3 4 
Ores 000012 1$: Ap 4! + 3 4311 
6984 
6985 ; Routine Size: 205 word 
pts 1 > Maximum stack depth per fe 52 words 
oe 
699 


; 4344 !<BLF/PAGE> 


——— ee 
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SEQ 0170 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>BL3ML¢ .BLI.2 (50) 


!START GPHARDS AT LUN 0 AND LOAD 'ML_REG’ 
!SEE IF THIS IS THE VERY FIRST PASS 


! INCREMENT LOGICAL UNIT NUMBER 
!START OVER IF ALL UNITS HAVE BEEN TESTED 


!REPEAT THE GPHARD UNTIL A 0 IS RETURNED 
:GET BASE RH oon tat ee UNIT 


'GET RH VECTOR FOR THIS UNIT . 
HINIT OFF SET COUNT ° 


LOAD THE REGISTER ADDRESS FOR THIS UNIT INTO ML_REG 


!IF NEW PASS START GPHARDS AT LUN 0 


6995 ;ML4 —Dec-i9 26:31 
one ; $5 pee~ 1380 OB:84:35 
699 
6998 ; 4%45 ! 
6999 : 4 BGNINIT; 
7000 ; 4 ' INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH 
7001 ; 4348 ! PASS, WHEN POWER. DOWN/POWER UP HAS OCCURRED, OR WHEN THE 
ee 3 449 ! OPERAT' ISSUE START, RESTART OR CONTINUE COMMAND 
3 4350 ! DURING INITIALIZATION, THE 'GPHARD’ MACRO IS USED TO GET 
7006 ; 4351 ! P-TABL ORMATION F HE LOGICAL UNIT UNDER TEST. THE 
7005 ; 4 25 ! NUMBER OF UNITS AVAILABLE FOR TESTING IS CONTAINED INA 
7006 ; 4353! HEADER LOCATION (‘LSUNIT'). 
7007 ; 4354 
7008 ; 4355 local 
7009 ; $328 OFFSET; 
7010 ; 435 
7011 ; 4358 external 
at ; 4359 LSUNIT; 
7013 ; 4360 \ 
7014 ; 4361 if not READEF (EF_CONTINUE) 'SKIP INIT CODE IF CONTINUE 
7015 : eect then 
7016 ; 4 begin 
7017 ; 4364 
7018 ; 4365 if READEF (EF_START) 
7019 ; 4366 then , 
7020 ; 4367 begin 'THIS IS CATEGORY 1 CODE 
7021 ; oes ML_LUN = -1; 
7022 ; 4369 
7023 ; 4370 do 
7024 ; 4371 posta 
7025 ;: $36 ML_L = .ML_LUN + 1; 
7026 ; 4 
7027 ; 4374 if .ML_LUN geq .LSUNIT then DOCLN; 
7028 ; 4375 
7029 ; 4376 end 
7030 ; 4377 until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0; 
7031 ; 4378 > 
7032 ; 4379 RH_ADD = .((.PTBL_PTR) + 0); 
7033 ; 4380 RH_TYP = : (CPTBL “PTR) + 2): 'GET RH TYPE FOR Ti 
703% ; 4381 RH_VEC = .((.PTBL_PTR) + 4); 
7035 ; 4 OFFSET = 0: 
7036 ; ° 4 ‘ 
7037 ; 4 incr cope from 0 to 21 do 
roe : re 74 ML REG C. COUNT, REGISTER DJ] = .RH_ADD OF FSET 
: 9 « e 
7040 ; 4387 OFFSET = .OFFSET + 2; an 
7041 ; rer} end; 
A oF ; tay l 'TS THIS A NEW PASS 
3 else ! 
7045 ; £393 begin 
7047 : rt if READEF (EF_NEW) then ML_LUN 1 
; . t al = -1; 
7048 ; 4395 
7049 ; 4396 do 


eee 


C14 
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| 


MISCELLANEOUS CODING SECTION SEQ 0171. 
7051 ;ML4 § —Dec-1980 09:24:31 TOPS=-20 Bliss-16 V2(212) 
7056 : —Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BLI.2 (50) 
7054 ; 4397 begin 
7055 : 4 38 ML_LUN = .ML_LUN ¢ 1; 'JF NOT GET NEXT LUN PTABLE 
7057 : 4400 if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS ARE TESTED 
058 : 440¢ end 
7060 : 440 until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0: 

7061 : 4404 

eS £608 me 

7064 : 4407 PAR DIS = .((.PTBL_PTR) +12); 'GET PARITY DISABLE FLAG 

7065 : 4408 mL_BUT = .((.PTBL_PTR) + 10); iGET DRIVE NUMBER 

7066 : 4409 oP SU ARR = .((.PTBL_PTR) + 6) = 7; iGET OPERATOR NUMBER OF ARRAYS 
7067 : 4410 G00 ZEROES; ‘INIT GOOD BLOCK TO BLOCK ZERO 
7069 : te13 Soe 3 =o TE Roes: iNET AT RAY To PERO ‘ 

7070 : e418 LSTIBLK = ZEROES: iINIT LAST BLOCK TO ZERO 

r0re 3 4415 if. ((.PTBL_PTR) + 8) IS_SET 'CALCULATE ML11 16K MOS RAM PARAMETERS 
7074 : 4417 in 

7075 : 4418 DRIVE TYPE = %0'000110'; ‘EXPECTED DRIVE TYPE VALUE 

rs 4620: CS ae eal iWAS INCHEMEMT FOR TOK Ren 
7078 : 4421 > CHIP SIZ = 16; ~ iCHIP SIZE 

7079 ; 44g@ ARR_INC = %0'1000'; IARRAY I 

7080 : 44, ARR-16<9, 4> = 20°17": IARRAY 16 

7081 ; 4424 LSTIARR<9, 4> = .0P_NUM WR: iLAST ARRAY 

7082 : 4425 LST“BLK<9, 4> = .0P7 LAST BLOCK 

7083 ; $026 T“BLK =".LST_BLK or ae 

7085 : 4428 else Pe 'CALCULATE ML11 64K MOS RAM PARAMETERS 
7087 : bere TYPE = %0°000111"; EXPECTED DRIVE TYPE V. 

reo 1033 Mag-SEZE = 30. 00000": RAS. INCREP Size FO Sax a aed 
7090 : 4233 CHP SIZ = Si by iCHIP SIZE 

7092 : 6435 ARR naa Tecti 8a 4> = 10°74": TARRAY 16 

7093 ; 6436 LSTIARRCI <1{, 4> = .OP_NUM_ARR; iLAST ARRAY 

709% : 44 LS LST-BLK<I1, 2 ;* PN IT ARR: iLAST BLOCK 

7095 ;: =. a 

7096 : 4439 nt 

7097 : 4440 

7098 ; dias if .((.PTBL_PTR) + 2) eql %0°70° then LST_DUT_REG = 21 else LST_DUT_REG = 19; 
wr00 : 444 PRINTB (FMT_17, .ML_LUN); ‘TELL OPERATOR WHICH UNIT IS BEING TESTED 
101 : eae. CLR_MBUS; iCLEAR MASS BUS 

F08 4446 mn 

7104 : 4447 ENDINIT: 
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SEQ 0172 
Tig 
711 -GLOBL LSUNIT | 
ais | 
7119 024714 9041 7 157140 LINIT: JSR R1,$SAVE3 : 4343 
7120 ( i2 000036 MOV #36 ,RO . : 4361) 
Tiel C 10644 TRAP «G7 f 
7122 C 1 1 BHIS  1$ 
7123 C 7 RTS PC 
7124 O2 1 000040 1$: MOV #40,RO : 436 
7125 02 TRAP = «4&7 
7126 024740 1 1 BHIS 5$ 
7127 0267 12767 177777 166630 MOV #~1 ,AL.LUN 3 ’ & 
7128 0 367 166624 INC ML.LUN : 43 
7129 O¢ 67 166620 155030 CMP ML.LUN,LSUNIT : 437 
7130 262 1 BLT 3$ 
7131 ( 104444 TRAP = «& 
7132 166 016 166606 3$: MOV FA, -LUN.RO : 4 
7133 0 1 TRAP & 
713% 0 MOV RO,PTBL.PTR 
7135 025000 TST PTAL.PTR 
7136 02500 BEQ 2s 
7137 025006 166556 MOV @PTBL .PTR,RH.ADD a 43 
7138 025014 MOV PTBL.PTR,R1 : 4 
7139 025020 166546 MOV 2(R1),RH. TYP 
7140 025026 MOV PTBL.PTR,R1 : 4381 
7141 025032 166536 MOV 4(R1) .RH.VEC 
a 02504. CLR R2 : OFFSET 4 
7143 02504 CLR R1 3 COUNT 4 
7144 0250 4$: MOV R1,RO : COUNT,* 4 
7145 025046 ASL RO 
Ay, | 025 ASL RO 
7147 0250 ASL RO 
7148 025C MOV RH.ADD,.R3 
7149 025066 ADD tee : OFFSET,* 
7150 02506 MOV “IM, -REG(RO) 
7151 025066 . ADD #2, ; * OFFSET 438 
713¢ 025C INC R1 3 COUNT 4384 
7153 02507 CMP R1,425 3 COUNT,* 
7154 0251 BLE 4$ 
7155 0251 BR 8$ : 4365 
7136 nos 5$: MOV #35,R0 3 4394 
7157 025 TRAP = «G7 
7158 ( BHIS 6$ 
7159 C 166456 MOV #-1,ML.LUN 
7160 0 INC ML.LUN F 4 








ef§ § FFs He SH 

fe ] 
& 
33 


*e *e. se ee *e fete te te *s fete rere teateate *e fe rete tetera teats *e 


14 


Ba ween 4 2 2 : F pny 
Sate Se Se ie ae 
S aos seu 


3 
a nabsy Se sos Seeese 


cae tnceie pont peng 


R11 


ML .DUT 


- 

a 

Bs et 
B08 = 
oO 


e 


ML .LUN,LSUNIT 

.LUN,RO 
TBL 

PTR 

PTR 

R 
12(Ri) , 

FR 

R1),R3 
19(RiD, 


PTBL »P 
SWAB 


sML4 
7$ 
8$ 


MACRO M1113 22-DEC-80 12:16 PAGE 5 86 
OA 
: MOV 
TRAP 
MOV 
it 
aov 
MOV 
MOV 
MOV 
MOV 
ry 
ro 


3 x 8 S$ 88 8 2 RHRNS 
: 33 Pies 295 8 Ess 

§ $9 beans guages ceeeeey ces feck cneseees 
$38 ee Sis88%5 E2S8a5% = Sais SSe8Ss33 
SSLSISS Sssss'0r 35% 





e493 9UNGENERD* ONADSY SLRS RE MARDIS SORA INOEEZEANYRAY 
SOOO nOnnNn TaN att ravararatraratarettratatettattatts fie ‘ 3 


PIS SSS MXCLRER BEATS OSD RRRE NTI SRS RB RENESERR RRC ENE LCS 
RRERRRRRERERRRERRRERRRRRARERRRARARERERERREER 
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to 


TEST 
SECTION 


Pees 


5 Se 


o 
wi 


177030 
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164072 


164034 
164022 
000070 
165342 
165332 


165364 


165346 


3ML4 


10$: 


os 


gu sggagasaggacnsencnesneenrs 


@oww 
bene be bene 
68° 


; Routine Size: 
3; Maximum stack 


LSINIT::JSR 
TRAP 


BEBERASABEL, 
S43 


= 
2 
: 
rd 


s 


1) 470 


2—2—"W UB 
as 

ee te 

. 

nd 

wn 

~ 

z 

im 

a 


-LST.DUT.REG 
-(SP) 


242 words 


depth per invocation: 


PC,LINIT 
11 


Dec-1 980 


$3 pec 1 980 


SEQ 0174 


09:31 :22 


TOPS 
PA:< 


us? 


4438 
4441, 
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CZMLABO ML-11 
MISCELLANEOUS CODING SECTION 


| BR ML 
Le 3 
76 025666 000207 RTS = PC 
7277 


78 ; Routine Size: 4 words 


79 > Maximum stack depth per invocation: 


7285 


7286 ; 4448 !<BLF/PAGE> 


SEQ 0175 | 
g —Dec-1980 09:24:31 T 
—Dec-1980 09:21:22 PA: 


| 
0 words | 





Wg sonar nea 
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MISCELLANEOUS CODING SECTION 


sML4 
; 9 
g 3 4450 
$ 4451 
3 445 
3 445 
$ 4454 
7297 : 4455 
7298 : S28 
aa ; 445 
$ 4458 
7301 ; vert 4 
r308 : 4461 
7305 ; 1288 
7306 ; 4464 
7307 : 4465 
7308 ;: 4466 
7309 : 4467 
7310 ;: 4468 
7311 ;: 4469 
le $ 4470 
7313; 4471 
7314 ; 1676 
7315 : 44 
7316 ;: 4474 
7317 : 4475 
7318 ; 4476 
7319 ;: 4477 
7320 ; 4478 
7321 ;: 4479 
Fa58 re 
3 4481 
7324 ; 4482 
FR casero gvores 
7a 
Fase yoeerk | SSa079 
8 71 
239 oop 
7538 150177 
1339 77 
7340 025 oIS tre 
7341 025736 012700 
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33-Dec-1980 09 :24:31 TOPS-20 Bliss-16 v2(212) 
—Dec-1980 09:21:22 PA:<NEALE>BL3ML4.BLI.2 (51) 
$ 
BGNTST: 
'e4 
i TEST NUMBER: TST 1 
TEST NAME: MASS BUS READY TEST 
i TEST DESCRIPTION: 
Test THE RH CONTROLLER FOR EXISTANCE 
; 
i 1. WRITTING ONES TO THE RH CS2 REGISTER 
RESULTING IN A MASS BUS CLEAR 
; 2. THEN READ THE CS2 REGISTER FOR CLEAR DATA 
= 
CLR : 
MCS = 2EROES ‘CLEAR OUT CS1 
MLCS2 = %o'1 '; iLOAD CS2 WITH ONES AND FORCE A MBUS CLEAR 
DELAY (ONE_US); 
if CMLCs2) and (%0'177670")) neq ZERO ‘SEE IF CS2 GOT CLEARED 
begin ‘REPORT ERROR IF NOT CLEARED 
E (119, RH_ERROR, DUMPER);: 
PRINTB (THR_FMT, REG_17, FNC_23. PHR_4); 
DODU (. ); 
DOCLN: 
end; 
ENDTST 
$71: mov Rt .=(SP) : 
000040 165312 BIS8B #40,aML.REG+40 : 
165676 MOV ML R1 
1 BIC e R1 
7 165274 B1(B a7 a REG*40 
165 0 B1S8 Ri ae REG+4 
1 165256 MOV #-10,aML .REG+40 : 
000001 MOV #7,R0 > *,$STMP2 


SEQ 0176 
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CZMLABO ML-11 LOGIC 
MISCELLANEOUS CODING SECTION SEQ 0177 
3 ZML4 22-Dec-1980 09:24:31 TOPS 
: : 22-Dec-1980 09:21:22 PA:< 
1$: BEQ 4$ 
154146 MOV LSDLY.R1 : *,SSTMP1 
BEQ 
9 28: CLR (SP) 7 SSTMP 
50 DEC R1 : $STMPI 
; 1 - BNE es 
3¢ ° 3$: DEC RO : SSTMP2 
54 177670 165222 4$: BIT #110, aL. REG+40 ; 4473 
5 BEQ $ 
36 TRAP : 4471 
.WORD 167 
38 -WORD RH.ERROR 
~ WORD R 
1 7454 MOV #PHR. 4, -(SP) : 4477 
1 12746 01024 MOV #FNC.25,-(SP) 
12746 0104. MOV WREG. 17,-(SP) 
7646 0060. MOV ATHR.FMT,-(SP 
746 000004 MOV #%,- 
MOV SP, : SP,* | 
104414 TRAP «14 
016700 165540 MOV ML.LUN,RO ; 4478 
106451 TRAP «51 
7369 106444 TRAP 
062706 000012 ADD #12,SP : 4475 
7371 005726 5$: TST (SP5+ ; W447 
000207 RTS 
7374 
7375 : Routine Size: 59 words 
7376 3; Maximum stack depth per invocation: 7 words 
eed | 
7386 | 
7390 T1:: 
7391 004767 177606 1$: JSR PC,$T1 : 
Fo Sas ass ws 
73% 10. BLO 1$ 
7395 026070 000207 RTS PC | 
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CZMLABO ML-11 LOGIC 
MISCELLANEOUS CODING SECTION 
ML4 
7400 : 
ns E AMHMIN SUL ebotRS smnoca 
mum stac r invocation: 
oh 7 — 


7408 
7409 ; 4483 !<BLF/PAGE> 


0 words 


3 


SEQ 0178 
-Dec-1980 99:24 :31 TOPS 
—Dec-1 980 1:22 PA:< 
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CZMLABO ML-11 
MISCELLANEOUS CODING SECTION ; SEQ 0179 
7411 3ML4 <90c=1900 09:24:31 TOPS-20 Bliss- 7 v2(212) 
mi 3 $ ~Dec-1980 09: ‘gt :22 PA: <NEALE>BL3ML4¢.8L1.2 (52) 
7416 ; 4484! 
7415 ;: 5 BGNTST: 
7416 ; 
7417 ;: '44 
7418 ; ret ' TEST NUMBER: TST 2 
7419 ; ' 
rise é 4490 ! TEST NAME: MASS BUS HANDSHAKE TEST 
7421 ;: 4491 =! 
74 § 3 449 ! TEST DESCRIPTION: 
7425 ; 449 ' TEST MASS BUS TO UNIBUS COMMUMI CATIONS 
7 3 44%! VIA THE CONTROL BUS BY: 
7425 ; 4495! 
7426 ; 449%! 1. READING RH AND DRIVE REGISTERS AND 
7427 ; 4497 ! TEST THE NON EXISTANT DRIVE ° > 
7428 ; 4498 ! BIT 
oat : 4499 =! 
7430 : 4500 !-— 
7431 ;: 4501 
oes : 2208 local 
74 3 450 SAVE, ' TEMPORARY ~~ LOCATION 
7434 ; 4504 DODU_FLG; ‘DROP UNIT FLAG 
7435 ;: 4505 
ees s ret 3 DODU_FLG = ZERO; 
eS 5 a8 incr = from 0 to .LST_DUT_REG do 'TEST ALL PRESENT RH REGISTERS 
: n 
7440 ; 4510 3 'START OF SCOPE LOOP 
7441 ;: 4511 CLR 3 
mas 3 rid SAVE = ..ML_REG C.REG_SEL, REGISTER_ADDJ; 'READ THE REGISTER 
7444 ;: 4514 if .NED IS_SET 'DID READ CAUSE THE NED BIT TO SET 
7445 ; 4515 then 
7446 ; 4516 begin 'REPORT AN ERROR IF SET 
7447 ; 4517 E (120, RH_ERROR, DUMPER) 
7668 : 4518 PRINTB (FIV_FMT, WRD 62, PHR_5, WRD_12, WRD_52, FNC_6); 
7449 ; 4519 PRINTB (FMT_11, .ML_REG C.REG_SEL, REGISTER ADD): 
7450 ; 5 DODU_FLG = ONE; 
7451 ; 4521 end; 
7452 ; 45 
7453 ; 45 ENDSUB; 'END OF SCOPE LOOP 
7454 ; 4524 end; 
7455 : 45 
76456 : 45 if .DODU_FLG IS_SET 
7457 ; 4527 then 
7458 ; 45 pogin 
7459 ;: 45 (.ML!|LUN); 
7460 ; 45. DOCLN; 
rd ; rit end; 


4 
4535 ENDTST; 





CZMLABO ML-11 LOG 


4 
Ic MACRO M1113 22=DEC-80 12:16 PAGE 49h 
MISCELLANEOUS CODING SECTION 





7475 $72: JSR R1,$SAVES ; 
ge } CLR R1 ; DODU.FLG 
7% MOV LST.DUT.REG,R4 : 
rare CLR + REG.SEL 
7% BR 4 
7 1$: MOV a ; REG.SEL,* 
7 ASL 
7 ASL RO 
7 ASL RO 
7 RO,R3 
7 23: TRAP # 5 
7 165062 BISB 0, aL .REG*+40 : 
Pe 
76488 BIC fi RO 
7489 165044 BICB = #7 , AML. REG*+40 
7690 BISB RO.@ML.RE 
7491 MOV ar AEG URS) Rs 3 *, SAVE 
7498 165026 BIT #10000, aL .REG+40 : 
74 BEQ 3 
749% TRAP 5 : 
7495 .WORD 170 
74 [WORD RH.ERROR 
76 “WORD 
7498 MOV ENC. -(SP) ; 
7499 MOV MRD. g.~(SP) 
7500 7 MOV HRD. 12.~(SP) 
7501 MOV #PHR.5,—(SP) 
7308 746 007210 MOV #uRD 62 ,-(SP) 
746 MOV #F IV.FMT,-(SP) 
73 § my ea s 
e e * 
7306 104414 TRAP ‘16 
16316 013154 MOV ML .REG(R3), (SP) ; 
7508 46 004750 MOV #FMT.11,—( 
7509 46 000002 MOV #2,~-(SP5 
7510 MOV SP; RO 3 SP,* 
7511 06414 TRAP 6 
le 000001 MOV #1,R1 : *,DODU.FLG 
751 000022 ADD #2. : 
7514 7 3$: TRAP 6 : 
7515 ROR RO 
316 BLO 2$ 
751 INC Re : REG.SEL 
7518 43: CMP R2,R4 + REG.SEL.* 
7519 5 BLE 1$ 
7520 005301 DEC R1 : DODU.FLG 





——$—_—__+__—_____—. -3_ 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


4534 
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SEQ 0181 | 
sML4 3 —Dec-1980 09:24:31 T 
3 —Dec-1980 09:21:22 PA: 
BNE SS | 
165264 MOV 3 nee 8 4529 
m i | 
5S: RTS PC : 4482 
3; Routine Size: 76 words ; | 
3; Maximum stack depth per invocation: 15 words 
T2:: | 
177544 1$: JSR PC,$T2 : 4531 
TRAP 66 | 
ROR RO 
BLO 1$ 
RTS PC 


! <BLF /PAGE> 


; Routine Size: 6 words 
> Maximum stack depth per invocation: 0 words 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE N95 
MISCELLANEOUS CODING SECTION SEQ 0182 





sML4 SEH & 1:24:31 TOPS-20 Bliss-16 V2(212) 
: : —Dec-19. 2:21:22 PA: <NEALE 4.BLI.2 (53) 
7566 ;: $2 5 
7567 ;: 4 BGNTST; 
7568 ; 45 
7569 ; 45 !4¢ 
7570 ; 4539 ! TEST NUMBER: TST 3 
7571 ; 4540 } 
ie 3 reat TEST NAME: DRIVE PRESENT TEST 
7574 : re 7k i TEST DESCRIPTION: 
7575 ; 4544 THIS TEST Bn THE pesine® SECTOR 
7576 : 4545 i ADDRESS RE si & DRIVE UNDER 
7577 : 4 i TEST, DELAYS 1 en 
7578 : 4547 | READS THE NED BIT Wee MLCS2 
7579 ;: 4548} 
7580 ;: 4549 ' IF SET, AN ERROR MESSAGE IS 
7581 ;: tts PRINTED AND THE UNIT IS DROPPED 
es 8 4552 i= 
758 ; 455 
7585 ; 4554 Local 
7586 ; 4555 DODU_FLG, 'DROP UNIT FLAG 
7587 ; 4556 SAVE; 'TEMP STORAGE LOCATION 
Le reat FLG = ZERO 
7589 ; DODU = s 
7590 ;: 4559 ®6GNSOB; 
7591 ; 4560 ieee 
7592 : 4561 SAVE = .MLDA; 'READ A DRIVE REGISTER 
7593 ;: £288 DELAY (ONE_US); 'DELAY 1 US 
75% ; 4 
7595 ;: 4564 if .NED IS_SET 'TEST THE NED BIT 
7596 ; 4565 then 
7597 : 4566 begin 
7598 ;: 4567 E (1, ASYNC, ur. 'IF SET THEN REPORT ERROR AND SET DODU_FLG 
7599 ;: 4568 PRINTB (ONE_FMT, PHR_3); 
7600 ; 4569 DODU_FLG = ONE; 
7601 ; 4570 end; 
ro 3 4571 
7603 ; 45 ENDSLB; 
7604 ; 45 
7605 ;: 4574 if 7 em FLG IS_SET !DROP THIS UNIT IF DODU IS_SET 
7606 ; 4575 
7607 ; 4576 “ 
7608 : 4577? — te _LUN); 
7609 ; 4578 
7610 ; 4579 
7611 ; 4580 


ENDTST; 









ML-11 LOGIC TEST 





CZMLABO 
MISCELLANEOUS CODING SECTION 





761 
761 
7 167 
7 
2705 
; 77 
or 
41 
Re ale Sere 
RB tes tu 
reg it 
7644 re) 
7645 1044 
7646 000001 
7647 010464 
7648 orsoee 
7649 7 
7650 746. 
fos! Gases O13rK8 
7636 104414 
7654 012703 
7635 Gaeare Seor06 
7656 1 
7658 ste 
765 005303 
Tee aoe 
Tee 104451 
7664 005726 
7665 0 000207 
7666 
7667 


010000 


8 15 


MACRO M1113 22=DEC-80 12:16 PAGE 196 


164554 





3sML4 
$T3: JSR 
TST 
CLR 
1$: TRAP 
B1S8 
MOV 
BIC 
BICB 
BIS8 
MOV 
MOV 
2s BEQ 
MOV 
BEQ 
3$: CLR 
DEC 
BNE 
4$: DEC 
BR 
5$: BIT 
BEQ 
TRAP 
WORD 
WORD 
WORD 
MCV 
MOV 
MOV 
MOV 
TRAP 
MOY 
ADD 
6$: TRAP 
ROR 
BLO 
DEC 
BNE 
MOV 
TRAP 
TRAP 
7$: TST 
» RTS 


3; Routine Size: 


R1,SSAVE4 
-(§P) 
R3 


2 
#40, aM .REG+40 
ML R 


LSOLY,R2 

4$ 

(SP) 

R2 

3$ 

R1 

2$ * 
#10000 , @ML .REG+40 


61 wo 


rds 
: Maximum stack depth per invocation: 








9 words 


; DODU.FLG 


* , SAVE 


; #/SSTHP2 
; *,SSTPT 
: SStre1 
; SSTMP2 


33 


—Dec-1980 09: 
—Dec-1980 09: 


SEQ 0183 


4:31 
:22 


T 
PA: 


ao 
45 
455 


4561 
4 





5 
ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE ‘oh 


CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0184 | 
7674 :ML4 $5 _pec=1988 99:94:31 TOPS-20 Bliss-16 V2(212) 
fOr? 3 -Dec-1980 21:22 PA: <NEALE>BL3ML4.BLI.2 (53) 
7680 
ree 767° 177602 «ABE snopes 4579 
7686 ae ; TRAP 9 6 ‘ 
eer 5 ROR RO 
re BLO 1$ 
7689 RTS PC 
7690 
7691 ; Routine Size: 6 word 
34 : Maximum stack denth oer invocation: 0 words 
76 


98 
7699 ; 4582 !<BLF/PAGE> 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 198 
MISCELLANEOUS CODING SECTION SEQ 0185 


7701 : 22-Dec-1980 09:24:31 — TOPS-20 BLisga16 V2(212) - 
Dec-1980 09:21:22 PA: <NEALE>BL3ML6.BLI.2 | 


-$ 
4584 BGNTST; 


bed 
a ! TEST NUMBER: TST 4 
TEST NAME: DRIVE SELECTION TEST 


i 
i TEST DESCRIPTION: 
i THIS TEST 7 taut FOR UNIQUE DRIVE SELECTION BY WRITING THE DRIVE 
i UNDER TEST (DUT) DRIVE NUMBER _INTO ITS DSA REG. THEN WRITING THE DRIVE 
i NUMBERS OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REGISTERS 
AND READING THE DUT DSA FOR ITS DRIVE NUMBER. 

i 

i 

i 

i 

-_ 


IMPLICIT INPUTS: 


LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE DRIVE 
NUMBER OF THE DRIVE PRESENTLY BEING TESTED. 


RAD RRP EREDA NAN ARASEERESRERBECT Or ches 


; local 

$ DODU_FLG, ; DROP UNIT FLAG 

3 1606 SAVE; ' TEMPORARY SAVE LOCATION 

; 2608 CCR Pex 

; 4609 bODU FLe:= ZERO: 

; 4610 MLDA = .ML_DUT: ‘LOAD THIS DRIVES DRIVE NO. INTO ITS OSA REG 

Fs rr dp SAVE = .MLDA; 'READ THE REGISTER BACK 

: 461 if .SAVE neq .ML_DUT 'SEE IF DSA HAS DRIVE NUMBER 

3 4614 then 

$ 4615 poate 

3 461 (2, INTER, DUMPER); 'ERROR AND EXIT TEST IF DSA NEQ DRIVE NUM 

F 461 PRINTB (S1X_, tae PHR_4, WRD 12, FNC_3, WRD 37 WRD_13, REG 6) ; | 

$ 4618 PRINTB (F MT_2 is “ML _p0T: SAVE, (.ML “DUT xor SAVE); | 

3 4619 EXIT_TST; 
7741 ; $669 end:~ | 
fay) : incr DRV_SEL from 0 to 7 do 'WRITE DRV NO OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REG. | 
7745 : if .DRV_SEL neq .ML_DUT 'SKIP IF .DRV_SEL EQL TO THE DRIVE UND&R TEST (DUT) 
7746 ; 5 then | 
7747 : poate 
7748 ; 7 DR = .DRV_SEL; ‘SELECT DRIVE TO BE WRITTEN TO 
7749 : 8 =. seC; ‘WRITE DRIVE SEL NO. INTO ITS DSA REG 

3 DELAY (ONE_OS); 'DELAY 1 US 
7751 ;: end; 
rag : 163) DRV_NUM ML_DUT; ‘SELECT THE DUT 

3 4636 a ! 
he) : rrr) SAVE = .MLDA; 'READ ITS DSA REG 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 99 





MISCELLANEOUS CODING SECTION SEQ 0186 
7757 M4 —Dec-1980 09:24:31  TOPS-20 Bliss-16 V2(212) 
38 ; yas 1 :21:22  PA:<NEALE>BL3ML6.BL1.2 (54) 
7760 : is if SAVE neq .ML_DUT . !SEE IF WRITTING 19 OTHER DRIVES CHANGE ITS VALUE 
7762 : 7 n 
ores E ASYNC, DUMPER R):; 'ERROR AND SET DODU_FLG IF CHANGED 
7764 4639 PRINTB Cian FMT FNC_3, WRD 37, WRD_14); 
7765 4640 PRINTE Fm MT-1, .ML_DOT. .SAVE): 
7766 4641 DODU_FLG = OnE; 
7767 rey} end; 
7768 464 
7769 4644 ENDSUB; 
7770 4645 
7771 4646 if f .DoDU_ FLG IS_SET !DROP UNIT IF DODU_FLG IS_SET 
7772 4647 
fei “ee 
777% 4649 CL _LUN);: 
7775 4650 
777% 4651 
7777 465 
7778 4653 ENDTST: | 
7786 004167 155346 $14: JSR R1,$SAVE5 3 4581) 
7787 005746 TST -(§P) 
7788 104402 1$: TRAP 2 : 
7789 152 000040 164432 BISB #40,aML.REG+40 : 460 
7790 016703 165014 MOV ML. DUT .R3 
791 177770 BIC #1 R3 
Ma 1 000007 164414 BICB #7, @ML.REG+40 
150377 164410 BIS8 R3.aML.REG+40 
77% 905003 CLR : DODU.FLG 
7795 $777 164770 164370 MOV ML. DUT aM .REG+30 : 461 
1796 1 164364 MOV @ML .REG+30,R4 : *, SAVE 4611 
7 164756 CMP R4,ML.DUT : SAVE,* 461 
7798 451 BEQ 
7799 104455 TRAP 5 : 461 
7800 .WORD 2 
7801 1 ; INTER 
i Be Sete - 
46 010316 MOV WREG.6,-(SP) ; 4617 
7804 46 3% MOV : $,-(sP) | 
oe Fie Sores nnn EN | 
roe m6 26 MOV "13,-(SP) | 
re00 815766 905106 MOY RSTCPAT CSP) | 
J ae” | 
7810 012746 000007 MOV = (SP) 
vr. 





F 15 








CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 200 | 
MISCELLANEOUS CODING SECTION SEQ 0187 
3 sML4 3 —Dec- 1980 09:24:31 TOPS 
af, 3 Dec-1980 09:21:22 — PA:< 
15 026676 010600 MOV SP,RO : SP,* | 
16 026700 104414 TRAP «14 
17 026702 164674 mov AL .DUT. (SP) ; 4618 
18 026706 MOV Ro 3 SAVE,* 
7819 02671( BIC (SP) ,R3 
02671 BIC R4, (SP) 3 SAVE,* 
02671 BIS R3, (SP) 
02671 MOV R4,~(SP) 3 SAVE,* 
036 164656 MOV ML. DUT ,=(5P) 
156 004266 MOV #FMT.2,-(SP) | 
026 MOV = #4, = (SP) 
Jct MOV SP RO Pj SP,* | 
026 TRAP —s_ ‘16 
0267: TRAP =. « 63 
0267 000030 ADD #30,SP ; 461 
0267. BR 10$ 3 461 
026 23: CLR RS 3 DRV.SEL 
O26 164624 3$: ow R3.ML.DUT 3 DRV.SEL,* 462 
‘ “> 1 MOV Re é DRV.SEL,* 
026 177770 BIC #1 -R2 
126766 1 000007 164220 BICB =: #7 , AML. REG*+40 
026774 1 164214 B1SB Re. a -REG*40 
027000 01 164 MOV - aM .REG+30 : DRV.SEL.* 
027004 012701 1 MOV #1.R1 > *, $STMP2 
0270106 410 4$: BEQ 7$ 
0270 6 153100 MOV LSDLY,R2 3 *,SSTMP1 
N71 4 BEQ 6$ 
de 702C 5$: CLR (SP) 3; SSTPP 


DEC R2 3: SSTPP1 
; SSTPP2 


7$: INC R3 3 DRV.SEL 
000007 CMP R347 ; DRV.SEL.* 


g 
gee 
o 
po) 
se 

. 


3 
¥ 
a 
dit Bie 


RBs Ree 
#3 
g2 
: 
i 
mm 
B Gb 


ssses 

ES 
aos 
PEELE 
aes 
g 


SURRRER SEARO TUR Tae a NRO RnR EB autre 





——————— i — 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0188 
ZML4 22-Dec-1980 09:24:31 TOPS 
5 3 22-Dec-1980 09:21:22 PA:< 
er) 7132 010600 MOV SP,RO : SP,* | 
ies 7134 1064146 TRAP =. ‘14 
i} 71 10416 MOV R4, (SP) : SAVE,* 4640 
7% 0271 16746 164436 MOV ML .DUT,-(SP) 
ee 71 127 es 35 MOV #FMT.1,-(SP) 
te £130 107 MOV (SP) 
78 1 MOV ¥ : SP,* 
78 027156 104414 TRAP 
79 027160 01 000001 MOV #1,R5 ; *,DODU.FLG 4641 
000020 ADD #0), SP : 4637 
7881 1 8$: TRAP : 4642 
ROR RO 
1 BHIS 9$ 
90016 177350 JMP 1$ 
7885 305 98: DEC RS zy DODU.FLG 
001004 BNE 10$ 
016700 164366 MOV ML.LUN, 20 : 4649 
104451 TRAP S51 
104444 TRAP = 
16 005726 10$: TST (SP)+ : : 4581| 
027220 000207 RTS PC 


; Routine Size: 151 words 
; Maximum stack depth per invocation: 19 words 





027222 T4:: 
7222 004767 177316 1$: JSR PC,$T4 3 4651. 
7e68 104466 TRAP 66 

4 006000 ROR RO 
7232 103773 BLO 1$ 

027234 000207 RTS PC 


3; Routine Size: 6 words 
; Maximum stack depth per invocation: 0 words 
4654 !<BLF/PAGE> | 


DrESEREEC CELE 


3 
S35538 


H 15 
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ML-11 LOGIC TES 
MISCELLANEOUS CODING SECTION SEQ 0189 
IML4 32-Dec-1980 09:24:31 TOPS-20 Bliss-16 V2(212) 
: 2=Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BL1.2 (55) 
3 4655! 
: 4696 BGNTST; 
: 4658 !++ 
: 4659 | TEST NUMBER: TST 5 
; rere TEST NAME: | READ WRITE REG ONES/ZEROES TEST 
; rhe) i TEST DESCRIPTION: 
: 4664 THIS TEST WRITES AND READS A DATA PATTERN OF ALL ONES AND ZEROES TO ALL 
; 4665 | OF THE ML11'S READ / WRITE REGISTERS. 
: 4667 | ROUTINES WRT_REG AND RD_REG ACCEPT ARGUMENTS TO FURTHER SELECT ROUTINES 
; 4668 WHICH ACTUALLY PERFORMS THE READING AND WRITING OF THE REGISTERS. 
: 4670 THE UNIT IS DROPPED ON DETECTED ERRORS. 
: 4672 i IMPLICIT INPUTS: 
; 4673! WT_DATA 
: 4674 | LOADED BY READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN WRITTEN 
; 4675 ; TO THE REGISTERS (REPRESENTS GOOD DATA). 
: 4677 | RD_DATA 
: 4678 LOADED BY THE READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN 
: 4679 | READ FROM THE REGISTER (REPRESENTS BAD DATA). 
: tee 5 : 
3 rer} local 
: ERR_FLG, ‘ERROR FLAG PASSED TO ROUTINES 
: 4684 TST-PAT. iTEST PATTERN 
: 4685 index, iPOINTS TO REGISTER PRESENTLY BEING TESTED 
: 4686 DODU_FLG: iDROP UNIT FLAG 
: 4688 DODU_FLG = ZERO: 
: 4689 TST_PAT = ONES; ‘LOAD TEST PAT WITH ONES 
: 4691 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
; pr begin 
: 469% iner REG_SEL from 0 to 7 do 'TEST ELEVEN WRITE/READ REGISTERS 
e n 
5 4696 4 
° 4697 CLR_MBUS; 
: 6698 WRT-REG (.TST_PAT, .REG SEL, index); ‘WRITE TO THE REGISTER 
; 4699 RD_REG (.TST_PAT, .REG_SEL, ERR_FLG); ‘READ THE REGISTER 
; 4701 if -ERRFLG IS_SET 'SEE IF READ FOUND AN ERROR 
; 4705 begin !JF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
; 4705 selectone .REG_SEL of !SELECT WHICH MODULE FAILED 
4706 set 








CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


Bois erie ae PREECE CE CECE RCP RS ERECT crt ty 


MACRO M1113 22=DEC-80 12:16 PAGE iol 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>BL3ML4¢.BLI.2 (55) 


ERRDF “, ASYNC, DUMPER); !ASYNC MODULE FAILURE 


ERRDF , SYNC, DUMPER) ; !SYNC MODULE FAILURE 
7): 
_ERRDF (4, ARR_DAT, DUMPER); !ARRAY DATA MODULE FAILURE 


PRINTB (SIX_FMT, PHR_4, WRD WRD_56); 
PRINTB (FMT~16, .ML_REG L. index, REGISTER C36)" QT “bATAL ~RD_DATA); 


'REPEAT AGAIN WITH COMPLIMENT DATA 


TST_PAT = 
end; 


4 , a FLG IS_SET 


“e “he, LUN); 


ENDTST; 


‘DROP THIS UNIT IF THE DODU_FLG IS_SET 


3 


$388 


2 
#40, aL .REG+40 
ML. RO 


#177770 

#7, .REG+40 
RO, aL .REG+40 
R (SP) 


: 


C 
a) | 


1 


~~ 
Oo 


BR POREREB YS ISIS IS SE URE PERT REN UR RAR ISSE OR SR Oe EoECEOe 





ML-11 LOGIC TEST 





ELLANEOUS CODING SECTION 


000010 
173546 


000012 


174116 
000012 


000003 
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000001 


3ML4 


4$: 


5$: 


oes 


ERLLELEELLL TT os eo eT obas Brett ob ooh SEL 


BBE 


INDEX ,* 


TST.PAT,* 
REG.SEL,* 


ERR.FLG,* 
ERR.FLG,* 
REG. SEL 

REG.SEL,* 


REG.SEL,* 
REG.SEL.* 


REG.SEL,* 


; REG.SEL,* 


INDEX,* 





SEQ 0191 | 


2-Dec-1980 09:24:31 TOPS 
22-Dec-1980 09:21:22 PA:< 


4712 


4705. 


4715 


4718 


4719) 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0192 
8090 sML4 22-Dec-1980 09:24:31 TOPS 
8091 : 22-Dec-1980 09:21:22 PA:< 
809 MOV ML .REG(RO) ,-(SP) | 
8094 bos2i¢ MOV #FMT.16,-(SP) 
8095 MOV #4,-(SPS 
pita MOV SP RO 3; SP,* 
0 TRAP ss‘ 
8098 12706 MOV #1.R4 3 *,DODU.FLG 4 
Seen ADD #30,SP : 470 
81 rs 12 6S: ADD #12.SP : 
81 TRAP = «67 : 4721 
5 ; ao | 
8104 INC R3 ; REG.SEL 4694 
8105 000007 R3,47 3 REG.SEL,* 
8106 BLE 2s 
8107 COM R2 : TST.PAT 472 
8108 201 INC R1 : TWICE 4691 
8109 127 000001 R1,41 3 TWICE,* 
8110 14 BLE 1$ 
8111 905 DEC RS 3 DODU.FLG 
giie 004 7$ 
811 016700 163744 MOV ML.LUN,RO : 
8114 104451 TRAP ss) | 
8115 104444 TRAP = 4 
8116 022626 78: CMP (SP)+.(SP)+ : 4653 
8117 000207 RTS PC 
8119 ; Routine Size: 131 word | 
sso : Max imum stack depth per _ 24 words 
8126 
8130 
8134 027644 T5:: 
8135 027644 004767 177366 1$: JSR PC,$T5 : 4734 
8136 027650 104466 TRAP =—s--66 “ 
8137 027652 906000 ROR RO | 
81 027654 10. BLO 1$ ‘ 
8159 7656 000207 RTS PC ! 
e | 
8141 ; Routine Size: 6 words | 
8142 + Maximum stack depth per invocation: 0 words | 
| 
| 








SEQ 0193 


15 


MACRO M1113 22=DEC-80 12:16 PAGE 


4737 !<BLF/PAGE> 


MISCELLANEOUS CODING SECTION 


— 
” 
w 
poms 
vw 
—F 
8 
- 
- 
- 
! 
2 
: 





= ee 6UUUllC eee hCUl ee lt Ee G0 Gees (eee (CS Cee ~~ GE 4 | 
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C7M_ABO ML-11 LOGIC TEST | 
MISCELLANEOUS CODING SECTION SEQ 019% 

8155 :ML4 32-Dec-1980 09: 4:31  TOPS-20 Bliss-16 v2(212) 
8196 —Dec-19. :21:22  PA:<NEALE>BL3ML4.BLI1.2 (56) 
8158 ; 4 ! 

159 : re BGNTST; 

160 ; 4740 

161: 4741 '44 
Bie ; 424 i TEST NUMBER: TST 6 
8164 : 4764 i TEST NAME: READ WRITE REG SHIFTING ONES/ZEROES TEST 
8166 : 4746 i TEST DESCRIPTION: 
8167 : 4747 | THIS TEST WRITES AND READS 

8168 : 4748 SHIFTING ONE'S AND SHIFTING A FEROE" s 

8169 : 4749 | PATTERN TO ALL THE ML11°S 

8170 ; 4730 READ/WRITE REGISTERS 
8172 : 4752 ROUTINES WRT_REG AND RD_REG 

HG : re i CCEPT ARGUMENTS TO FURTHER 

8174 : 4754 SELECT ROUTINES WHICH ACTUALLY 

8175 : 4755 i PERFORMS THE READING AND 

8176 : 4756 WRITING OF THE REGISTERS. 

8177 : 4757 
8178 : 4758 THE DRIVE IS DROPPED ON DETECTED 

8179 : 4759 ERRORS. 

8180 ; 4760 ! 

8181 : 4761 | IMPLICIT INPUTS: 

8182 ; 4762 | 

8183 : 4763 OADED BY READ REGISTER ROUTINES AND 

8184 : 4764 CONTAINS THE DATA PATTERN WRITTEN TO THE 

8185 : 4765 REGISTERS (REPRESENTS GOOD DATA). 

8186 ; 4766 

8187 : 4767 | RD_DATA 

8188 : 4768 LOADED BY THE READ REGISTER ROUTINES AND 

8189 : 4769 | CONTAINS THE DATA PATTERN READ FROM THE 

8190 : 4770 | REGISTER (REPRESENTS BAD DATA). 

8191 : 4771 

o198 3 2778 i 

8196 ;: 4774 

B19 : tone ~— FLG 'ERROR FLAG PASSED TO ROUTINE 

8197 : 108 TST-PAT. iTEST PATTERN 

8198 : 4778 i iPOINTS TO REG PRESENTLY BEING TESTED 
8199 : 4779 DODU_ YELG: ipROP UNIT FLAG 

8200 ; 4780 

8201 : 4781 DODU_FLG = ZERO; 

8202 3 478¢ TST_PAT = ONE; ‘LOAD TST_PAT WITH A 1 IN A FILED OF O'S 
8204 : 4784 incr SHIFT from 0 to 15 do 'DO SHIFT 16 TIMES 

8205 ; ore? begin 

Pag : rie] incr TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 

8208 ; 4788 begin 

8209 : 4789 





j 
| 
a A 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE S08 | 
MISCELLANEOUS CODING SECTION SEQ 0195 | 


11 sML4 —Dec-19: 4:31 ToPs<20 8 Bliss-16 V2(212) 
1g; $5 pee- 1880 09:51 122 SOL 3ML¢.BL 1.2 (56) 
4 : 4790 iner REG_SEL from 0 to 7 do 'TEST ELEVEN READ/WRITE REGISTERS 
Py n 
16; 479 5 
17: 479 CLR_MBUS; 
18; 479% WRT-REG (.TST_PAT, .REG_SEL, index); ‘WRITE TO THE REGISTER 
19: 4799 RD_REG (.TST_PAT, .REG_SEL, ERR_FLG); iREAD THE REGISTER 
55 : 479? if ERR_FLG 1S_SET 'SEE IF THE READ FOUND AN ERROR 
82 3 4799 begin ‘JF THE ERROR FLAG IS_SET THEN ERROR 
8225 ; 4801 selectone .REG_SEL of 'FIND WHICH MODULE FAILED 
Py se 
8227 : 480 
$559 ; 4805 > a ASYNC, DUMPER) 'ASYNC MODULE FAILURE 
8231 : 4807 (4 to 5]: 
8252 3 4808 ERRDF (5S, SYNC, DUMPER); 'SYNC MODULE FAILURE 
82%, : éB 10 (6 to 7]: 
8235 : 4811 ERRDF (5, ARR_DAT, DUMPER); 'ARRAY DATA MODULE FAILURE 
8236 ; re Tf tes; 
ae re 34 PRINTB (SIX_FAT, PHRAG. WRD_12, FNCS. ENC 6, WRD_52, URD_56) ; 
8239 : 4815 PRINTB (FMT~16, .ML_REG C Paden. REGISTER_ADDJ, .OT “SATA. ~RD_ DATA): 
8240 ; 4816 = ONE: 
8242 : 4818 
8243 : 4819 ENDSUB; 
8244 ; 4820 end; 
ar : rest TST_PAT t .TST_PAT ‘REPEAT WITH A 0 IN A FIELD OF 1°S 
F = not. s ! 9 
Sc67 : 4538 end; il 
8249 : 4835 TST_PAT = .TST_PAT*ONE; ‘SHIFT THE 1 IN THE FIELD OF 0°S 
8250 ; end: * 
8251 : 4827 
8252 : 4828 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS SET 
3 rei] then 
8254 ; pogtn 
3 4831 (.ML_LUN) ; 
$ Pri DOCLA: 
: 483. FS 
4834 
4835 ENDTST: 


Ne Eee 


| 16 ! 
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MISCELLANEOUS CODING SECTION 


$16: JSR R1,$SAVES : 
CMP -(§P) ,-(SP) 
CLR R5 : .FL 
7 MOV #1,R3 t *,TST.PAT 
75 0, CLR R1 : SHIFT 
0 1$: CLR R2 : TwICeE 
2$: CLR RG + REG. SEL 
3$: TRAP 2 2: 
163302 BISB #40,aML.REG+40 : 
Bic APP IPO 
1 BIC #1 RO 
8286 163264 BICB = #7, AML. RES*+40 
BISB -@ML .REG+40 
8284 MOV 5=(SP) : TST.PAT,* 
8285 MOV R4.-(SP) : REG.SEL.* 
MOV #10,-(SP) 
eset ADD SP, (SP) : INDEX,* 
JSR PC; WRT.REG 
8289 MOV * (SP) : TST.PAT,* 
8290 MOV R4.=(SP) t REG.SEL.* 
8291 MOV #12,-(SP) 
829¢ ADD SP, (SP} : ERR.FLG,* 
JSR PC;RD.REG 
8294 000001 CMP 12(SP) #1 : ERR.FLG,* 
8295 BNE 7$ 
8296 TST R4 : REG.SEL 
8297 BLT 4$ 
8298 CMP R4 M3 : REG.SEL,* 
8e99 BGT 4$ 
TRAP 55 ; 
8301 .WORD 5 
8302 “WORD ASYNC 
“WORD  DUMPER 
8304 BR 6$ : 
8305 4$: CMP R4 AG : REG.SEL,* 
8306 BLT 5 
830 CMP R4.wS : REG.SEL,* 
8308 BGT 5$ , 
8309 TRAP =s«s55 ; 
8310 .WORD = 5 
8311 [WORD SYNC 
aig “WORD DUMPER 
831 BR 6$ ; 3 
8314 5$: CMP R4 M6 t REG.SEL,* 
8315 BLT 6$ 
8316 CMP R4,A7 : REG.SEL,* 
8317 BGT 648 
8318 TRAP 35 ; 
8320 030072 “WORD  ARR.DAT 


















CZMLABO ML-11 LOGI 
MISCELLANEOUS CODI 


SERS 


pe ee es 
SNS 
SESSS 


sar 
Sar 


: 


Rex 
SERS 


006000 
103626 








C TEST 
NG SECTION 


16 
MACRO M1113 22=DEC-80 12:16 PAGE $10 


ZML4 
.WORD  DUMPER 

6$: MOV MURD. 56,-(SP) 
MOV MURD.52.=(SP) 
MOV ENC.6,~(SP) 
MOV #FNC.5.=(SP) 
MOV M#URD.12,-(SP) 
MOV #PHR.4,-(SP) 
MOV . &#SIX.FAT,=(SP) 
MOV #7,~-(SP) 
MOV SP-RO 
TRAP 14 
MOV RD. DATA, (SP) 
MOV WT .DATA,-(SP) 
MOV 36(SP), 
ASL. RO 
ASL RO 
ASL RO 
MOV ML .REG(RO) ,-(SP) 
MOV #FMT.16,-(SP) 
MOV #4 ,-(SP5 
MOV SP.RO 
TRAP = ‘14 
MOV #1,R5 
ADD #30,SP 

7$: ADD #12,SP 
TRAP 67 
ROR 
BLO 3$ 
INC 
CMP R4,A7 
BLE 
COM R3 
INC R ‘ 
CMP R2,#1 , 
BLE } 
ASL 
INC 
CMP R1,417 
BLE 
DEC R5 
BNE 
MOV ML.LUN,RO 
TRAPS : 
TRAP = & 

8$: cmp (SP)+, (SP)+ 
RTS PC 

; Routine Size: 137 word 


; Maximum stack depth per 


s 
invocation: 25 words 


* ,DODU.FLG 


REG.SEL 
REG.SEL,* 


TST.PAT 
TWICE 
TWICE ,* 


; TST.PAT 
SHIFT 


SHIFT,* 
DODU.FLG 


SEQ 0197 


22-Dec-1980 09:24:31 
980 09:21:22 


22-Dec-1 


TOPS 
PA:< 


4814 


4815, 


3 
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CZMLABO 

MISCELLANEOUS CODING SECTION SEQ 0198 
T6:: 
oth 34 177352 1$: JSR PC,$T6 F 4833 

ones mw 

12 10 BLO is 

es 030314 000207 RTS PC 
8398 : Routine Size: 6 words 
8399 3; Maximum stack depth per invocation: 0 words 
8208 | 
8406 


4836 ! 
4837 !<BLF/PAGE> 
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CZMLABO ML-11 LOGIC TEST 

MISCELLANEOUS CODING SECTION 
8409 :ML4 fa saad B44 eae Bed ee Bliss-16 V2(212) 
oi? : —Dec-1980 09:21:22 A:<NEALE>BL3ML4.8L1.2 (57) 
oie 3 ! 
8415 ;: 9 BGNTST: 
8414 : 0 
8415 ; 1 !4¢ 
8416 ;: ' TEST NUMBER: TST 7 
8417 : 4843} 
8418 ;: 4844 i TEST NAME: REGISTER INITIALIZATION TEST 
8419 ; 4845 } 
8420 ;: 4846 i TEST DESCRIPTION 
8421 : 4847 | THIS fest TESTS THE ABILITY OF 

3 4848 i ALL ACCESSIBLE ML11 sp rh tae 
3 4849 | TO ig OUT REGISTER DATA 

B26 : 4850 } ONE'S AND ZEROES PATTERN. 
8425 ; 4851! 
8426 : 4852 ' ROUTINE WRT_REG WRITES A 
827 : 485 i PATTERN TO THE SELECTED REGISTER. 
8428 ;: 4854 
osep 2 4855: A MASS BUS CLEAR IS DONE. 
8430 ;: 4856! 
8431 ;: 4857! THEN ROUTINE RD_REG READS THE \ 
Hh) 3 4858 | SELECTED REGISTER: FOR CLEARED D ‘ 
Bree $ rt 44 THE DRIVE IS DROPPED ON DETECTED. ERRORS. 
8435 ;: 4861 ! THIS TEST WILL ALSO READ THE 
8436 : rere) i DRIVE TYPE REGISTER FOR ITS 
8437 ;: i INITIAL REGISTER VALUE. 
8438 ;: 4864! 
8439 ;: 4865 | IMPLICIT INPUTS: 
8440 : 4866 i THIS FLAG IS NEEDED DUE TO THE UNIQUE 
8441 ; 4867 i MANNER IN WHICH THESE REGISTERS 
8442 : 4868 READ. 
8443 ; 4869 
8444 ; 4870 ' 
8445 ;: 4871 i COMED BY THE READ REGISTER ROUTINE 
8446 > £58 i AND CONTAINS THE DATA PATTERN READ FROM } 
8447 ;: 48 i THE REGISTER (REPRESENTS BAD DATA). 
8448 ;: 4874 } 
8449 : 4875 i DRIVE TYPE 
8450 ; 4876 i LGADED DURING THE INITIALIZATION CODE AND 
851; 4877 i STORES THE EXPECTED CONTENTS OF THE DRIVE 
oS 3 4878 i TYPE REGISTER. 
8455 ; 4879 i 
8454 ;: 4880 
8455 ;: 4881 local 
8456 ;: rst TST_ pale ; TEST PATTERN 
8457 ;: ERR-FLG, 'ERROR FLAG PASSED TO ROUTINE 
8458 ;: 4884 iPOINTS TO REG PRESENTLY BEING TESTED 
8459 : 4885 CLR DATA, 'STORES CALCULATED REGISTER CLEAR DATA 
8460 ;: 4886 - : TEMPORARY STORAGE LOCATION 
8461 ; rest DODU_FLG; 'DROP UNIT FLAG 
Bass s 4889 ML_REG (19, FORCE_HI] = %0'177777'; 'CLR DATA FOR MLPD IS ONES 


SEQ 0199 
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CZMLABO 
MISCELLANEOUS CODING SECTION 


333333 
Rages SBebene 


g 
3 


SSeReReRene® 


4891 
489 


DODU_FLG = ZERO; 
TST UpAT = ONES; 


incr TWICE from 0 to 1 do 
begin 


incr ar from 0 to 10 do 


CLR_MBUS; 
WRT_REG i. TST_PAT, .REG_SEL, a 
CLRTDATA = (.AI) or (. IGNORE) 


CLR" 
RD_REG CCLR_DATA, -REG_SEL, on Saath 
if .ERR_FLG IS_SET 
then 
begin 
ateer -REG_SEL of 


9. 


CO, be hrt 3, 10) : 
F (6, ASYNC, DUMPER); 


(4, 5, 8) : 

ERRDF (6, SYNC, DUMPER); 
(6 to 7] : 

, ERRDF (6, ARR_DAT. DUMPER); 
es; 


PRINTB (FIV_FMT, PHR_4, WRD_1 


SEQ 0200 
33-Dec-1980 09:24:31 TOPS-20 Bliss-16 V2(212) 
—Dec-1952 09:21:22  PA:<NEALE>BL3ML4.B8L1.2 (57) 
'BACKGROUND PATTERN 
'REPEAT LOOP TWICE 


!TEST THIRTEEN REGISTERS 


;WRITE REGISTER WITH BACKGROUND 

!CALCULATE THE CLEARED DATA PATTERN 

CLEAR THE REGISTER 

'READ THE REGISTER FOR THE CLEARED DAY PAT 

'SEE IF READ FOUND AN ERROR 

!IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 


'FIND WHICH MODULE FAILED 
'!ASYNC MODULE FAILURE 
!SYNC MODULE FAILURE 


!ARRAY DATA MODULE 


WRD_52, FNC_23, 


2. 
PRINTB (FMT_16, .ML REG C C. index, “REGISTER ABDI. wit a aia, -RD_DATA) ; 
DODU_FLG = ONE; 


ENDSUB; 
end 


TST_PAT = not .TST_PAT; 


ML_REG (19, FORCE_HI] = ZEROES; 


NOW TEST THE DRIVE TYPE REGISTER 


if .MLDT -DRIVE_TYPE 
then — “a 


!REPEAT WITH COMPLIMENT BACKGROUND PAT 


'RESTORE MLPD FORCED_HI 


!COMPARE REG CONTENTS TO CALCULATED VALUE 





CZMLABO ML-11 LOGIC TEST 
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MISCELLANEOUS CODING SECTION 


8521 :ML4 
8522 ;: 
85. 

3 1308 
8525 ;: 494 
Bass doce 
S35% 3 138 
8529 ; 49% 
85350 ;: 4948 
8531 ; 4949 
8532 ;: 4950 
8535 ; 4951 
8534 ; 495 
8535 ; 495 

36 4954 
8537 ; 4955 


8573 030460 
8574 050464 142 





33 Fee= 1580 99 


ERDF 13 
(TWO_F re. Maat a tel 7 Pak 4) 
PRINT F MT~2, .DRIVE_TYPE,~.SAVE); 


iy hg POU FLG IS_SET !DROP THIS UNIT 


EB ne 


ENDTST; 
153574 $17: JSR R1,$SAVE5 
000006 SUB SP 
177777 163052 mov #1 ML. REG+232 
177777 MOV #-1,R2 
CLR R1 
1$: CLR RG 
23: TRAP 2 
000040 162636 BISB #60,a@ML.REG+40 
163220 MOV ML. R3 
177770 BIC i 
000007 162620 BICB = #7 , AML. REG+40 
162614 BIS8 R3.aML.REG+40 
MOV R2,- 
MOV R4,-(SP) 
000012 MOV #12,-(SP) 
ADD SP, 
172456 JSR PC“ WRT.REG 
MOV 12(SP), 
ASL RO 
ASL RO 
ASL RO 
MOV RO.R3 
013156 MOV ML .REG+2(R3) ,RO 
13162 BIS ML .REG+6(R3) .RO 
MOV RO, 6(SP) 
162540 BI1SB8 #40,aML.REG+40 
1631 MOV ML. DUT RO 
1 . on #177776,RO 
000007 162522 BICB = #7, AML. REG+40 


IF DODU_FLG IS_SET 


DODU.. FLG 
*,TST.PAT 
TWICE 
REG. SEL 


TST.PAT,* 
REG.SEL,* 


INDEX, * 
INDEX,* 


*,CLR.DATA 


TOPS-20 Bliss-! 
PA: <NEALE 


>BL3ML 


6 
é 


v2(212) 


-BL 


( 
I. 


2 (57) 


SEQ 0201 


-—————————_————__ -- —_--———- 
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MISCELLANEOUS CODING SECTION SEQ 0202 
857 IML4 22-Dec-1980 09:24:31 TOPS 
g ; 22-Dec-1980 09:21:22 PA:< 
g278 030 50077 162516 BISB RO, @ML.REG+40 
000006 MOV 6(SP) , (SP) : CLR.DATA,* 4903 
MOV R4.-(SP) : REG.SEL,* 
000014 MOV #i4,-(SP) 
172744 JSR PC.RD.REG 
000014 000001 cme 16(SP) 4A : ERR.FLG,* 4905 
TST RG : REG.SEL 4909 
BLT 3$ 
8589 000003 CMP R443 : REG.SEL,* 
8590 BLE 4$ 
8591 000011 3$: CMP R4,411 : REG.SEL,* 
85 BLT 5$ 
85° 000012 CMP R4A12 : REG.SEL,* 
85% BrT S$ 
8595 4$: TRAP s-s«55 : 4913 
8596 .WORD 6 
8597 “WORD  ASYNC 
8598 32 “WORD  DUMPER 
8599 BR 9s : 4909 
8600 7 000004 5$: CMP R4 M4 : REG.SEL,* 
8601 BLT 6$ 
8608 7 000005 ce RG AS z REG.SEL,* 
8604 7 000010 6$: CMP R4,#10 : REG.SEL,* | 
8605 005 BNE 8$ | 
8608 106455 7$ TRAP =s-«55 : 4916 
860 000006 .WORD 6 | 
8508 010526 “WORD SYNC 
8609 02405 “WORD  DUMPER 
8610 1 BR 9$ : 4909 
8611 000006 8$ CMP R46 | + REG.SEL,* 
s61¢ 7 BLT 9$ 
861 7 000007 CPP R4,A7 : REG.SEL,* 
8614 BGT 
8615 104455 TRAP =s-«4555 : 4919: 
8616 WORD . 
8617 “WORD  ARR.DAT 
at 2 712 9$ mar MRD. 56,-(SP) 4922 
746 O10%9 MOV NC. o7(SP) 
746 MOV -52.-(SP) 
ris see ee De 
ie 606062 MOV #F IV.FMT,-(SP) 
746 000006 mov #6. (SP) - 
° 3 * 
104414 TRAP «14 
8628 016716 162216 MOV RD. DATA, (SP) : 4923 
8629 01 9090530 MOV 30(SP) ,-(SP : CLR.DATA,* 
01 013154 MOV ML .REG(R3) ,-(SP) 
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C 
| MISCELLANEOUS CODING SECTION 





; Maximum stack depth per invocation: 


25 words 


3ML4 
12746 005216 MOV ‘#FMT.76,-(SP) 
107 MOV #4 ,-(SPS 
1 MOV SP.RO 3; SP,* 
013708 1 TOY OLS DODU.FLG 
: ¢ %, . 
$0026 wy OR 
1 ~ TRAP 67 é 
ROR 
BHIS 1 
000167 177362 11$: ° JMP rs} 
12$:- INC RS ; REG.SEL 
000012 CMP R4,412 3 REG.SEL,* 
BLE 11§ 
102 - COM Re 3; TST.PAT 
005201 INC Ri 3 TWICE 
127 000001 CMP R1,41 : TWICE,* 
BGT 13 
167 177332 JMP 1$ 
7 162370 3$ CLR ML .REG+232 
ae 162262 162106 CMP @ .REG+130, DRIVE. TYPE 
431 BEC 14$ 
104455 TRAP 55 3 
000161 -WORD 161 
010464 «WORD ASYNC 
-WORD DUPPE 
46 007454 MOV #PHR.4,-(SP) é 
746 010324 MOV WREG.7,-(SP) 
746 24 MOV #TWO.FMT,-(SP) 
Ht: aaaea me s 
eo 3 = 
106414 TRAP 14 
0416 MOV R4, (SP) 3: SAVE,* 
746 162042 MOV DRIVE. TYPE ,-(SP) 
7 004266 MOV #FMT.2,- 
1 MOV 43.5{SP) SP 
eo s * 
8 106414 TRAP 14 
000016 ADD #16,SP $ 
14$: DEC RS ; DODU.FLG 
1 BNE 15$ 
16 162460 MOV ML.LUN,RO 3 
104451 TRAP 51 
WIS coos ss: 
000207 RTS PC 
; Routine Size: 198 words 


6 
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ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 

B98 
869 
8701 0311 T7:: 
8 11 767 177160 1$: JSR PC,$T17 

11 1 TRAP 66 
8704 0311 ROR RO 
8705 0311 103 BLO 1$ 
s7te 0311 000207 RTS PC 
8708 ; Routine Size: 6 word 
the : Maximum stack depth ae invocation: 
8715 


8716 ; 4956 !<BLF/PAGE> 


0 words 


“~ 


SEQ 0204 


4953 


—-—£s WE. 
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MISCELLANEOUS CODING SECTION SEQ 0205 
| 8718 :ML4 33-Dec-1980 09 £24: 31  TOPS-20 Bliss-16 v2(212) 
8719 : | =Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BLI.2 (58) 
8721 ;: 4957! 
8 3 4958 =! 
8723 : 4959 
8724 : 4960 BGNTST: 
8725 : 4961 
8726 : 496¢ 144 
8 73 4965 TEST NUMBER: TST 8 
8729 ; 4965 TEST NAME: REGISTER SELECTION TEST 
. B731: 4967 | TEST DESCRIPTION: 
8732 : 4968 THIS TEST TESTS FOR UNIQUE REGISTER 
8733 : 4969 SELECTION BY FIRST WRITING A BACKGROUND 
87% ; 4970 PATTERN INTO ALL READ/WRITE REGISTERS 
8736 : 497¢ i IT THEN WRITES A COMPLIMENT 
8737 : 4973 BACKGROUND PATTERN INTO ONE REGISTER 
8738 : 4974 | AND READS THE REMAINING UNWRITTEN 
8739 ; 4975 REGISTERS FOR AN UNCHANGED BACK 
8741 : 4977 
or4 : 4978 i THIS PROCEDURE IS REPEATED UNTIL ALL 
8743 : 4979 | REGISTERS HAVE BEEN WRITTEN WITH A 
8744 ; 4980 COMPLIMENT BACKGROUND PATTERN. 
8746 : 4 in 
8747 ;: 1388 
tox : rhe} locas ou FLG, ‘DROP UNIT FLAG 
8750 : 4986 TST_ PAT. iTEST PATTERN 
8751 : 4987 ERR-FLG, ‘ERROR FLAG PASSED TO ROUTINE: 
875 3 4968 eee iPOINTS TO REGISTER PRESENTLY BEING TESTED. 
8754 : 4990 : 
8755 : 4991 
8756 : 499¢ D ZERO; 
8757 : 4993 TST Par’ = SE oes, ‘LOAD TST_PAT WITH ALTERNATE 1°S & O'S 
8758 : 4994 WRT~CS1 (.TST_PAT, 0): iWRITE A BACKGROUND INTO ALL THE DIRECTLY 
8759 : 4995 URIWER (. TST_PAT, 6); IACCESSABLE READ WRITE REGISTERS 
8760 : 4 WRT-DA (.TST-PAT. 3): 
8761 : 4 WRT-PA (.TST~PAT. 8): 
8762 : 4998 WRIWE1 (.TST-PAT, 13): 
are : $999 WRITE2 (.TSTIPAT. 14): 
8765 3 5001 incr cnT_1 from 0 to 4 do ‘WRITE A COMPLIMENT PATTERN INTO ONE REGISTER 
8767 ; 2008 TST_PAT = not .TST_PAT; 'GENERATE THE COMPLIMENT PAT 
8769 : 2608 case .CNT_1 from 0 to 4 of ‘SELECT THE REGISTER TO WRITE INTO 
SRE im, Be te. 
8772 : 5008 (0) : 
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MISCELLANEOUS COD!s SECTION SEQ 0206 | 
8774 ;m4 -Dec-19 2:24:31 TOPS-20 Blis “> v2(212) 
ie 3 33 pec- 1980 99:54:32 PA: <NEALE 4.BL1.2 (58) 
558 8 2008 WRT_CS1 (.TST_PAT, 0); 'FIRST PASS WRITE COMP PAT TO MLCS1 

778 ; 10 : 
8779 ;: 5011 C1) : 
pet : 2018 WRT_ER (.TST_PAT, 6); !'SECOND PASS WRITE COMP PAT TO MLER 
ores ; 5014 (2) : 
3 3 5015 WRT_DA (.TST_PAT, 3); !THIRD PASS WRITE COMP PAT TO MLDA 
78 ; 5016; ; 
8785 ; 5017 (3) : 
8786 ;: 5018 WRT_PA (.TST_PAT, 8); 'FORTH PASS WRITE COMP PAT TO MLPA 
8787 ; 5019 
8788 ; 5020 (4) : 
8789 ; 5021 WRT_E1 (.TST_PAT, 13); !'FIFTH PASS WRITE COMP PAT TO MLE1 
8790 ; 5022 tes; 
8791 ; 5023 
pias : 2058 TST_PAT = not .TST_PAT; !COMPLIMENT TST_PAT BACK TO BACKGROUND 
8794 ;: 5026 incr "NT_2 from .CNT_1 + 1 to 5 do 'NOW READ THE REMAINING UNWRITTEN REGISTERS FOR AN 
pac 3 apse begin 'UNCHANGED BACKGRUUND 
8797 ; rit case .CNT_2 from 0 to 5 of 'SELECT THE REGISTER TO READ 
8798 ; 50. set 
8799 : 5031 
8800 ; 5032 (0) : 
8801 ; 5033 RD_CS1 (.TST_PAT, index = 0, ERR_FLG); !READ MLCS1 
8802 ; 5034 
8803 ; 5035 C1) : 
8804 ; 5036 RD_ER (.TST_PAT, index = 6, ERR_FLG); 'READ MLER 
8805 ; 5037 
8806 ; 5038 [2] : 
8807 ; 5039 RD_DA (.TST_PAT, index = 3, ERR_FLG); 'READ MLDA 
8808 ; 5040 
8809 ; 5041 (3) : 
8810 : 3048 RD_PA (.TST_PAT, index = 8, ERR_FLG); !READ MLPA | 
8811 ; 504 
aele $ 5044 (4] : 
88135 ; 5045 RD_E1 (.TST_PAT, index = 13, ERR_FLG); !READ MLE1 
8814 ; 5046 
8815 ; 5047 CS) : 
8816 ; 5048 RD_E2 (.TST_PAT, index = 14, ERR_FLG); !READ MLE2 
8817 ; 5049 tes; 
8818 ;: 5050 
8819 ; 5051 if .ERR_FLG IS_SET 'SEE IF READ FOUND AN ERROR 
8820 ; 2036 then 
8821 ; 505. begin 
eess 3 5054 
3 5055 selectone .CNT_2 of 
8824 ; 5056 set 
8825 ; 5057 
8826 ; 5058 CO to 2): 
8827 ; 5059 ERRDF (110, ASYNC, DUMPER); !ASYNC MODULE FAILURE 
8828 ; 5060 
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33-Dec-1980 09:24:31 TOPS-20 BLis 
-Dec-19 21:22 PA: <NEALE 
(3 to 5): 
’ ERRDF (110, ARR_DAT, DUMPER); !ARRAY DATA MODULE FAILURE 
es; 
PRINTB (THR_FMT, WRD_38, wo 37, 
PRINTB (FMT-16, .ML_REG LC. index. weerereh ADD], .WT_DATA, .RD_DATA); 
DODU_FLG = ONE; 
end; 
end; 
ENDSUB:; 
if .DODU_FLG 1S_SET !DROP THIS UNIT IF DODU_FLG IS_SET 
boBU" 
(.ML_LUND ; 
DOCLN: 
end 
ENDTST; 
152744 $78: JSR R1,$SAVES : 
TST -(§P) 
1$: TRAP 2 : 
000040 162030 BISB 6#40,@ML.REG+40 ; 
Ieee MOV BL R3 
1 BIC #] RS 
000007 162012 BICB 0s: #7, AML. REG+40 
162006 BIS8 R3.aML.REG+40 
CLR RS : DODU.FLG 
125252 MOV #~52526,R4 + *, TST.PAT 
MOV R4,-(SP5 , : TST.PAT,* 
CLR ~(§P) 
166236 JSR PC,WRT.CS1 
MOV R4, (SP) : TST.PAT,* 
000006 MOV #6,~(SP) 
166402 JSR PC.WRT.ER 
MOV R4. (SP) : TST.PAT,* 
3 MOV #3.-(SP) 
166546 JSR PC.WRT.DA 
MOV R4. (SP) : TST.PAT,* 
000010 MOV #10,=(SP) 


“+ v2(212) 


4.BL1.2 (58) 


SEQ 0207 


495 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 321 
MISCELLANEOUS CODING SECTION SEQ 0208 | 





IML4 33-Dec-1980 09:24:31 ' TOPS 
: Dec 1980 09:21:22  PA:< 
| 
904767 167070 JSR PC,WRT.PA 
010 MOV R4, (SP) : TST.PAT,* 4998 
D1 15 MOV #15,=(SP) 
0 16 JSR PC,WRT.E1 
01041 MOV R46, (SP) : TST.PAT,* 4 
12746 000016 MOV =: #16, = (SP) 
004767 167460 JSR PC,WRT.E 
005001 CLR R1 : CNT.1 5001 
00510 2s COM R4 : TST.PAT 500 
‘ 0 3 MOV R1 R3 é CNT.1,* 
006303 ASL R3 
066307 031322 ADD 3$(R3) , PC | 
00001 3s «WORD 4$-3$ 
D000 .WORD  5$-3$ | 
000040 e WORD 
000 . WORD os-35 
00070 .WORD  8$-3$ 
U U : 4$: MOV R4,-(SP) e TST.PAT,* 
005046 CLR -($§P) 
004767 166116 JSR PCoWRT.CS1 
000427 BR : 
010446 5$: MOV R4,-(SP) : TST.PAT,* 5012 
012746 000006 MOV #6,~(SP) 
nt $7 166260 JSR PC»WRT.ER 
9446 6$ MOV R4,~(SP) + TST.PAT,* 501 
746 000003 MOV #3,-(SP) 
006767 166422 JSR PC,WRT.DA 
000413 AR og : 5005! 
010446 7$: MOV R4,-(SP) : TST.PAT,* 501 
46 000010 MOV #10,-(SP) 
004767 166742 JSR PC,WRT.PA 
eeae BR Po 5005 
8$: MOV R4,-(SP) + TST.PAT,* 5021 
bere 000015 MOV #15 ,-(SP) 
004767 167134 JSR WRT .E1 
005104 9$: COM : TST.PAT 5024 
01010 MOV R1,R3 > CNT.1,CNT.2 
2003 6 BR 2 
910300 10$: MOV RO : CNT.2,* 5029 
N06 300 ASL RO 
066007 031442 ADD 11$(RO) PC 
0000: 11$: WORD 1esn1 $ | 
000036 «WORD 1 11$ 
00006¢ -WORD  14$-11$ | 
9001 06 .WORD  15$-11$ 
0001 .WORD  16$-11$ 
000156 .WORD  17$-11$ | 
010446 12$: MOV R4,-(SP) : TST.PAT,* 5033) 
2 ce a, : INDEX 
- | 
512746 000030 MOV 30,-(SP) 
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000016 
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ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX,* 
ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX ,* 
ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX,* 
ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX,* 
ERR.FLG,* 


; TST.PAT,* 
* , INDEX 


INDEX, * 


; ERR.FLG,* 


ERR.FLG,* 
CNT.2 
CNT.2,* 


CNT.2,* 
CNT.2,* 





SEQ 0209 


33-Dec-1980 09:51:22 


T 


5051 
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238: 


24$: 


258: 


26S: 


3; Routine Size: 
3; Maximum stack depth per invocation: 
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pF 


SEIT 
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244 words 


28 words 


INDEX,* 


SP,* 
* ,DODU.FLG 


CNT. 
CNT.2,* 


CNT.1 
CNT.1,* 


DODU.FLG 





SEQ 0210 


B3-pec-1980 O9:e1:22 PAs 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE B36 
CUAEOUS £ ING SECTION 


16 1: : 
767 177024 1$: JSR PC, $T8 5 
TRAP 66 
ROR RO 
BLO 1$ 
% RTS PC 


3; Routine Size: 6 words 
aT > Maximum stack depth per invocation: 0 words 


9080 
9081 ; 5084 '<BLF/PAGE> 





9083 :ML4 g poem 1988 9: 4:31 TOPS-20 Bliss-16 V2(212) 

eee ; —Dec-1 21:22 PA: <NEALE 4.BL1.2 (59) 
3 5 ! 

oo5e ; $ 

9088 : BGNTST: 

9090 : 144 

9091 : TEST NUMBER: TST 9 

S098 3 TEST NAME: § PRINT SERIAL NUMBER 

9095 : i TEST DESCRIPTION: 

90% : 5095! UPON A YES RESPONSE TO THE 

9097 : 209% i SOFTWARE QUESTION ‘PRINT SERIAL NO? 

9098 : 5097! PRINT OUT THE DRIVE UNDER TEST 

9099 2038 SERIAL NUMBER. 

9101 : 5100 i 

4} 3 5101 

91 ; 2106 external 

710% 3 3103 PRSN; 'LOCATION WHERE ANSWER TO SW QUESTION IS STORED 

9106 : 5105 local 

9107 : 5106 D3, 'STORES DIGIT 3 OF SERIAL NUMBER 

9108 : 5107 D2. iSTORES DIGIT 2 OF SERIAL NUMBE 

9109 : 5108 D1. iSTORES DIGIT 1 OF SERIAL MPBER 

3110 ; 3109 D0: iSTORES DIGIT 0 OF SERIAL NUMBER 

3112 5 S111 if .PRSN IS_SET 'SEE IF WE PRINT THE SERIAL NUMBER 

9114 : a118 in ‘PRINT THE SERIAL NUMBER IF THE REPLY WAS YES 

9115 : 5114 D3 = .SN3; iLOAD DIGIT 3 OF SN INTO D3 

9116 : 5115 D2 = .SN2: iLOAD DIGIT 2 OF SN INTO be 

9117 : 5116 D1 = .SN1: iLOAD DIGIT 1 OF SN INTO D 

gig ; 3117 DO = .SNO: iLOAD DIGIT 0 OF SN INTO 4 

9120 : 5119 if ((.D3 gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.D0 gtr 9)) 

gi21 ; 3120 ™*. ° ° or "SEE IF DI its ARE TO BIG FOR COVERSION 

g138 ; He, wise RINT (FMT_25, PHR_15, .MLSN) 'PRINT OCTAL SN IF TO BIG 

gies ; 31 PRINTB (FMT_26, PHR_15, .D3. .D2, .D1, .DO): 'ELSE PRINT DECIMAL SERIAL NUMBER 

45 14 : 2182 end; 

9128 : 5127 

pat 24 ; 5128 ENDTST 

9134 .GLOBL PRSN 

9136 
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SEQ 0212 


| 
| 
: 
| 
| 
| 
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| 
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9140 

9144 51792 $T9: JSR R1,SSAVE3 

yids 000001 owe PRN A : 5111 
se? mov @ML .REG+140,R3 + D3 511 
es ; ASR n3 : BS 

91 ASR : 03 

HB 8 a. 

91 BIC #177760,R3 : *,D3 

91 MOV @M .REG+140,R0 t *.D2 511 
9155 03 SWAB StséRO : 02 

7156 5, BIC #177760,RO 3 *,D2 

y132 nove am .REG+140,R1 : = DI 511 
9159 03. ASR R1 : D1 

se os se a 

yiég > BIC #177760,R1 : *,D1 

91 MOVB amt, .REG+140,R2 > *,D0 511 
164 0 BIC #177760,R2 : */D0 

yigs 5, ow R341 : p8,* 511 
ser > cm R0.#11 : D2,* 

pa 4 ie CMP R411 3 D1,* 

an 5. o> R2,411 ; DO,* 

91 > BLE e e e 

a8 1$: MOV art. -REG+140 -(SP) : 51 
917% MOV #PHR.15,-(SP) 

9175 MOV #FMT.25,-(SP) 

rat MOV 3.5{SP5 ; SP,* 

y178 3 TRAP 14 egy 

71 BR 3$ ; 511 
9180 03. 2s: MOV (SP) > DO.* 5124 
sia oe my Api Be 

oi8s > MOV RS’~ (sp) : bes 

7184 MOV #PHR.15,-(SP) 

91 > MOV #FMT .26,-(SP) 

7186 MOV #6,-(SP5 

91 > MOV SP-RO 7 SP,* 

9188 TRAP ‘14 

9189 ADD #6, SP 

9190 ADD #10,SP : 5113 
gi9l 4s RTS PC : 5083 





1 
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7ML4 —Dec1 2:24:31 T 

3 35 pec 1980 93:54:32 Pa 
; Routine Size: 72 words 
> Maximum stack depth per invocation: 11 words 





BLO 
000207 RTS PC 
; Routine Size: 


6 words 
> Maximum stack depth per invocation: 0 words 


iS 
v 


: 
004 
4 
5 
f 
8 
19 
9220 
9226 


| 
T9:: 
767 177554 1$: JSR PC,$T9 3 51 
104466 TRAP 66 
ROR RO 
103 1$ 
9227 : 5129 !<BLF/PAGE> | 
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OGIC TEST | 
ODING SECTION SEQ 0215 
—Dec-1 :24:31 TOPS-20 Bliss-76 v2(212) 
$5 poem 1380 03 :$4 3 PA: <NEALE 4.81.2 (60) 
51 ' 

131 

132 BGNTST; 

’ o¢ | 
21 5 TEST NUMBER: TST 10 | 
21 : TEST NAME: C=BUS PARITY TEST | 
51 i TEST DESCRIPTION: 
5140 TEST THE CONTROL BUS PARITY 
316] DETECTION AND GENERATING BY: 
3108 i 1. WRITING BAD PARITY TO DEVICE | 
5144 AND TEST CPAR SET. 

5146! 2. WRITING GOOD PARITY TO DEVICE 
2147 : AND TEST CPAR CLR. | 
5149 3. READING DEVICE AND TEST GOOD 
5150 PARITY GENERATION BY READING 
5151 MCPE CLR. 
3158 i | 
5153 i— 
5154 | 
5155 local 
5156 a ' TEMPORARY SAVE LOCATION 
3137 TST_PAT; iTEST PATTERN 
3159 if .PAR_DIS 1S_NOT_SET 'SEE IF PARITY IS DISABLED | 
5161 begin ‘BEGIN IF PARITY IS ENABLE | 
3162 TST_PAT = %0°125252°; ‘ALTERNATING 1, 0 PATTERN 
3164 iner TWICE from 1 to 2 do ‘REPEAT LOOP TWICE | 
5166 CLR_MBUS; 
5167 PAT = ONE: ‘GENERATE EVEN PARITY BY SETTING THE PAT BIT 
2168 MLDA = .TST_PAT: ‘WRITE BAD PARITY ON CONTROL BUS 
5170 if .CPAR IS_NOT_SET 'READ CPAR BIT SET | 
217) then P 

n 
3158 Dee (7 Ae pa ‘ERROR IF NOT SET 
5174 PRINTB Cin Ine’ WRD_7, WRD_9); 
313 ~ | 
51 CLR_MBUS; ‘CLEAR OUT PAT BIT | 
3178 MLDA = .TST_PAT; iWRITE ODD PARITY CONTROL BUS | 
5180 if .CPAR IS_SET 'READ CPAR BIT CLEARED 
5181 then | 


SD 












CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


smL4 
3 1 
3 188 
3 1 
3 185 
3 1 
3 1 
ne: 
3 5189 
3 5190 
3 5191 
3 a1 
363) 3 519. 
3 5194 
pd 3 313 
S358 3 3199 
9306 ;: 5198 
9305 : 5199 
9306 ;: 5200 
ete 3 5201 else 
S 3 5. 
9309 : 5. 
Sere 3 5206 ENDTST 
9318 032366 004167 151466 


a 





PRINTB (TWO_FMT, WRD_7, WRD_5S3); 
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v2(212) 


-1 26:31 TOPS-20 Bliss-16 
mats 1 $9334 :32 PA: <NEALE>GL 3M 4.BL1.2 (60) 
in 

E (8, ASYNC, DUMPER); 'ERROR IF SET 

PRINTS (THR_FMT. WRD_6, WRD_7, WRD_9); 

end; 
CLR_MBUS; 
SAVE = .MLDA; 'READ A REGISTER FROM DUT 


we IS_SET !SEE IF GENERATED GOOD PARITY 


in 
PROF (9, ASYNC, DUMPER); 'ERROR IF MCPE IS_SET 
PRINTB (THR_FMT, WRD_6, WRD_7, WRD_8); 


TST_PAT = .TST_PAT“ONE; !REPEAT WITH SHIFTED DATA 


!JUST PRINT MESSAGE IF PARITY IS DISABLED 


$T10:  USR R1,$SAVE3 : 

TST PAR.DIS : 

MOV #-52526,R1 3 *,TST.PAT 

MOV #1_R2 : *, TWICE 
160576 1$: BIS8 #40, aML.REG+40 : 

mov Fa BUT ARO 

BIC RO 
160560 B1cB #7 a -REG*4O 
160546 B1S8 #36 @ML .REG+40 : 

MOV R1, aL .REG+30 : TST.PAT,* 
160554 BIT #10, aL .REG+60 : 

TRAP 3 : 

WORD 

;WORD  ASYNC 

“WORD  DUMPER 

MOV MURD.9,-(SP) : 

MOV #uRD.7.-(SP) 

MOV #URD.5.-(SP) 


SEQ 0216 


| 
| 
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160332 
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!<BLF /PAGE> 
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MACRO M1113 22=DEC-80 12:16 PAGE 531 


sML4 
MOV #TWO.FMT ,~(SP) 
MOV #3,~(SP) 
MOV we 
TRAP 4 
ADD #10,SP 
RTS PC 


; Routine Size: 139 words 
: Maximum stack depth per invocation: 9 words 


T10:: 

1$: JSR PC.$T10 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


: Routine Size: 6 words 
> Maximum stack depth per invocation: 0 words 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE b32 
MISCELLANEOUS 





CODING SECTION SEQ 0219 

% 2mL4 TOPS-20 Blis =16 v2(212) 
3659 : $o-pec =1380 8: 34:33 :22  PA:<NEALE 4.BL1.2 (61) 
9441 ; : 
S48 : 3 BGNTST;: 
9444; 
9445 : 10 !e+ 
46 : 1] { TEST MUMBER: TST 11 
9447 : 5. $j 
MAB 3 13 TEST NAME: § MEMORY SIZING TEST 
9450 : 15 i TEST DESCRIPTION: 
9451 ;: asi$ i 
52 : 5 i THIS TESTS THE ML11°S SIZING 
953 ; 8 i LOGIC BY COMPARING 
954 : 5219! OPERATORS INPUTED NUMBER OF ARRAYS 
9455 : 5 i PRESENT TO THE ML11 SIZING 
56 : 5 i NUMBER OF ARRAYS PRESENT 
957 : 5 i THE DRIVE IS DROPPED ON DETECTED ERRORS. 
358 ; & i IMPLICIT INPUTS: 
9459 ;: 5224 = 
9460 : 5225 3 
9461 : 26 L DURING INIT CODE AND 
Bebe : 5227 | STORES OPERATORS INPUT TO THE 

: 2B SOFTWARE QUESTI 
M66 : 5 i NUMBER OF ARRAYS PRESENT? 
9465 ;: § i 
9466 : 5231 
9467 ; — 
M69 : Local 

e oca 
3670 : 3530 DODU_FLG; 'DROP UNIT FLAG 
% ; 2536 BONSLB: 
367% 3 3538 DODO FLe’= ZERO: 
M76 5 1 if (OP NUM_ARR + 1) neq .ML_NUM_ARR 'SEE IF DRIVE SIZED SAME NO. OF ARRAYS AS OP INPUTED 
203: baaa? 
979 : (10, ASYNC, ‘JF NOT EQL THEN ERROR AND SET DODU_FLG 
9681 : 3 PRINIB (FMT Io, f.0 Fi, 4-16 15 ML_NUM_ARR) 
Soke : § DODU_FLG = ONE: ll lly al 

3 end; 
9484 : 5249 att 
aes : 2 1 ’ 
9687 ; 3 if f-DoDu_ FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS_SET 
Sc56 : 5 
9490 : 3555 “se CAL LUND; 
9491 ;: 5. 
9492 : 525 





m= ——— 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 233 
MISCELLANEOUS CODING SECTION SEQ 0220 | 


1980 09:26: 20 Ot fee | 
33-Dec-1980 09:21:22 PASCMEALEDOL SM ¢.BL1-2 C61) | 





$T11: JSR R1,SSAVE3 ' : 5 
: TRAP 2 t : 523 
160150 BISB #60,@ML.REG+40 ; : 
MOV ma bur RI 
BIC #1 RI 
160132 BICB = #7 , AML. RES 
BIS8 R1.aML.RE ‘ 
CLR R2 i : DODU.FLG 52 
MOV OP .NUM.ARR,R1 : 5241 
INC R1 
MOV aM .REG+120,R3 
ASR 
ASR 
ASR 
SWAB 
BIC #177760,R3 
MOV R1,RO 
cmp RO.R3 
BEQ 3 
TRAP 5 : 
«WORD 12 
“WORD ASYNC 
“WORD  DUMPER 
MOV MRD. 14,-(SP) : 524 
MOV #FNC.1,—(SP) 
MOV #TWO.FMT,-(SP) 
MOV #3,-(SP) 
MOV SP .RO : SP,* 
TRAP ‘14 
MOV aM. .REG+120,R3 : 
ASR 
ASR 
ASR 
SWAB 
BIC #177760,R3 
MOV R3, (SP) 
MOV OP NUM. ARR, -(SP) 
INC (SP) 
MOV #FMT.2,-(SP) 
MOV #3,-(SP) 
MOV SP RO : SP,* 
TRAP «14 


—_ 









nN. 1 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 234 
MISCELLANEOUS 


CODING SECTION 








9 ML4 
1 
ala MOV #1,R2 
16 ADD #16,SP 
4 2s: TRAP 67 
ROR RO 
BLO 1$ 
DEC 4 
5 BNE 
95 6 160326 MOV ML.LUN,RO 
9560 19047) TRAP 51 
9561 1 TRAP 44 
5.4 000207 3$: RTS PC 
O64 3; Routine Size: 76 words 
9565 ; Maximum stack depth per invocation: 
9571 
9575 
9579 T11:: 
9580 004767 177544 1$: JSR PC,$T11 
9581 106466 TRAP 66 
Saas keen mos 
1 BLO 1$ 
84 72 000207 RTS PC 
9585 
9586 ; Routine Size: 6 words 
pes 24 : Maximum stack depth per invocation: 
9593 
95% : 5260 '<BLF/PAGE> 


0 words 


; *,DODU.FLS 


; DODU.FLG 








2 
TEST MACRO M1113 22=DEC-80 12:16 PAGE B35 


CZMLABO ML-11 LOGIC 
MISCELLANEOUS CODING SECTION SEQ 0222 
cML4 —Dec-1 1:26:31 TOPS-20 Bliss-16 V2(212) 
3 § m Saat 1 93:54 3 PA: <NEALE 4.8L1.2 (62) 
i 
BGNTST; 
5 44 


: TEST NUMBER: TST 12 
i TEST NAME: | NO-OP FUNCTION TEST 


i TEST DESCRIPTION: 


99 : 
9600 ; 
ss 7 
9605 ; : 
30 4 ; 
: 
9609 : "1 2 
9610 : 5 es i TEST IF THE DRIVE CAN PERFORM 
9611 : 5 i A NO_OP FUNCTION WITH OUT 
34 : 7% | THE DRIVE. 
9615 ; 75 ! 
9614 : 06 i A NO_OP FUNCTION IS WRITTEN 
9615 : i INTO MLCS1. 
9616 : 78 i THEN GO AND ERROR BITS ARE 
9617 : CHECKED FOR CORRECT STATES. 
9619 : 5281 THIS UNIT IS DROPPED ON DETECTED 
9620 : 5 i ERRORS. 
9621 ; ! 
9622 : 4 i IMPLICIT INPUTS: NONE 
9624 : 3286 
3 ast 
3 355) local 
3 5 DODU_FLG; 'DROP UNIT FLAG 
3835 ; 3 BGNSLB 
1; CLR_MBUS; 
: 5 pooO Fle = ZERO; 
3 5 MLCST = NOOP; 'DO A NOOP FUNCTION 
9654 2 DELAY (ONE_US); iDELAY 1 US 
9656 : 5 if .GO IS_SET 'SEE IF GO STILL SET 
3 5. then 
9638 ;: § begin 
9639 : 5301 E (11, ASYNC, DUMPER); ‘ERROR AND SET DODU_FLG IF STILL SET 
9640 ; 5 PRINTS (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_2. WRD_19); 
9641 : 2 DODU_FLG = ONE; 
eee 3 end: 
9643 ; : 
9644 : if .ILF IS_SET ‘SEE ILF SET 
9645 ;: § then 
nn ee 
9647 : 5 E (12, ASYNC, DUMPER); ‘ERROR AND SET -DODU_FLG IF SET 
9648 ; 5310 PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_11, FNC_2, WRD_19); 
9649 : 5311 DODU_FLG = ONE; 
9650 : 5312 end; 













CZMLABO ML-11 LOG 
MISCELLANEOUS COD 


m4 


5552 SSUSESSUSEEGLEESEAN COS ECEEERISENEEEEEI EEE 


T 
CTION 


if .OPI IS_SET 
then 


in 
Beer (13, ASYNC. 
PRINTB (FIV_FMT, 
DODU_FLG = ONE; 


ENDSUB; 
iy a FLG IS_SET 


“et “1 -LUN) ; 


157702 
157664 


157610 


157554 5$: 


DUMPER) ; 


MACRO M1113 22-DEC-80 12:16 PAGE $36° 


VENBEZGOEUTAZ 


_ 
Win 


i 





$5 -Dec~ 1309 So gt: 3) forsne0 Bliss-16 V2(212) 


—Dec-1 


'SEE IF CPI SET 


'ERROR AND SET DODU_FLG IF SET 
“WRD_4, PHR_S, WRD_11, FNC_2, WRD_19); 


!DROP THIS UNIT IF DODU_FLG IS_SET 


; DODU.FLG 

3 *,SSTPP2 

3 *,SSTPP1 
SSTMP 

3; SSTMP1 

3; SSTMP2 





wa 


ba) 


-- 


2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 837 
MISCELLANEOUS CODING SECTION 


3 be 
MOV M#URD.19,=(SP) : 
971 MOV #FNC.2,~(SP) 
971 02 MOV #RD.11,=(SP) 
cre my oet-i8) 
9715 053434 MOV = #F IV. FAT,=(SP) 
zat oo MOV #6,-(SP) 
4 MOV ated : SP,* 
pat 3 TRAP 4 
7 MOV #1,R2 : *,DODU.FLG 
ADD #16,SP : 
1 157544 6$: BITB #1,@ML.REG+60 ; 
i BEQ us 
TRAP 5 : 
.WORD 14 
[WORD  ASYNC 
} MOY #URD.19,-(SP) o 
( MOV #FNC.2,—(SP) 
MOV MRD. 11,-(SP) 
$ MOV #PHR.5,—(SP) 
MOV MRD. 3,~-(SP) 
1535¢ MOV 4 IV.FMT,-(SP) 
MOV #6,~(SP) 
y MOV SP.RO : SP. 
>of TRAP ‘14 
= MOV #1,R2 : *,DODU.FLG 
J. ADD #1 : 
15355. 157454 7S BIT Ss -@ML.REG+60 : 
9740 033562 TRAP 5. : 
9741 0 «WORD 15 
9744 O5357¢ MOV MRD. 19,-(SP) : 
9745 0. MOV #FNC.2,~(SP) 
9746 MOV WRO.11,-(SP) 
9747 05 MOV #PHR.5,-(SP) 
971 MOV MRD. 4.~(SP) 
974 MOV #F 1V.FAT,-(SP) 
9730 } (MOV #6,-(SP) 
1Q MOV SP RO : SP,* 
a Be ig pu. 
e *, . 
975% ADD #16,SP : 
9755 8$: TRAP 67 : 
oe = 
BLO 1$ 
pee 4 3 -FLG 
9760 033 MOV ML.LUN.RO : 
9761 03: TRAP 51 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


ee 
$e 
ae 
9771 
q 
ie 
ss 
mi 
7 


He 


add 


MACRO M1113 22-DEC-80 12:16 PAGE Ssa° 


TRAP 4% 
9S: TST (SP)+ 
RTS PC 


3; Routine Size: 126 words 


; Maximum stack depth per invocation: 


T12:: 
18: JSR PC,ST12 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 


> Maximum stack depth per invocation: 





11 words 


0 words 


33-pec= 1980 09:51:22 


a — —— 







F_2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 239 
MISCELLANEOUS CODING SECTION SEQ 0226 | 


” 33-pec=1980 09:91:22 PAr<MEALEDOL SM ¢.BLI-2 (63) 


| 
| 


EEeEeeeS 


; 5 @GNTST; | 
: ve | 
3810 ; | TEST NUMBER: TST 13 | 
wie : TEST NAME: | WRITE CHECK FUNCTION TEST 
914 : 3 ! TEST DESCRIPTION: | 
6 : ; i TEST IF THE DRIVE CAN PERFORM 
9817 : sus i A WRITE CHECK FUNCTION WITHOUT | 
wi8 ; 3 : HANGING THE DRIVE. 
9820 : ‘ i A WRITE CHECK FUNCTION IS WRITTEN 
: suo | INTO MLCS1. 
; 5350} THEN GO AND ERROR BITS ARE 
: 3 31 CHECKED FOR CORRECT STATES 
Rei et 
3858 z 33 locas ou FLG ‘DROP UNIT FLAG 
9829 ; 3335 admire : 
Bee 3359 yt 
: 5 5000 fies ZERO; 
; 5361 FIRST_BLK_XFER (); 'SET UP A FIRST BLK XFERR 
5 3 MLCS1~= WRT_CHK; iDO A WRITE CHECK FUNCTION 
956 ; 5 if .GO IS_NOT_SET ‘SEE IF THE GO BIT GOT SET 
3 5365 then 
9838 : 5 begin 
9839 ; 5 E (14, ASYNC, DUMPER): ' ERROR i NOT SET 
9840 ; 3 PRINTB (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_4,. WRD_19); 
he 3 5 if .DRY IS_NOT_SET ‘SEE IF THE DRY IS SET WHILE GO IS C D 
9843: 5371 then ~ we 
9B44 ; 5. poate 
9845 : 5 E (15, ASYNC, DUMPER): ‘ERROR IF CLEARED 
946 : 5374 PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 
9647 ; 5. end; 
nn ee har 
9649 : 3 DODU_ iG = ONE: 'SET _FLG | 
oooh : 3 else 
9853 : 5381 if .DRY IS SET 'THE GO IS SET SO SEE IF DRY IS CLEARED 
9854 ;: 5 then = = ane 
9855 : 5 begin | 
9856 : 5384 E (16, ASYNC, DUMPER); ‘ERROR IF DRY IS SET | 








2 
IC TEST MACRO M1113. 22=DEC=80 12:16 PAGE 340 | 
ING SECTION SEQ 0227, 


MISCELLANEOUS C 
ImL4 Tops~20 Bliss-16 V2(212) 
$558 | $5 pee=1580 99:51 22 SEAL ESOL BM oor to 663) 
1; 5 PRINTS (FIV_FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_5); 
3 DODU_FLG = ONE; 
9864 : f 
9865 : if .ILF IS_SET 'SEE IF ILF IS SET 
ence 3 then 
$y bap 
Seep § ERINTB triv' + + ie 3. Pin. 5, WRD_12, FNC és ORD 19); er: 
3858 : DODU_FLG = ONE; 
9671 ;: 5. : 
p= 204 3 5. 
9873 : 5 if .OPI IS_SET 'SEE IF OPI IS SET 
oats 3 § then ‘ 
Py n 
9876 : 2200 ERROF. (18 ASYNC, DUMPER); ERROR FE. SET 
9877 : 5401 PRINTS (FIV_FMT, WRD_4, PHR_S5, WRD_12, FNC_4. 
9878 ; oe0e DODU_FLG = ONE; 
9679 : 5 
9680 ;: 5404 
9881 : 5405 DELAY (FRTY_US); ‘WAIT FO XFERR TO COMPLTE 
Seas : 5407 if .DRY IS_NOT_SET 'SEE IF DRY IS SETS AFTER XFERR 
9884 : 5408 then 
9885 : 5409 begin 
9886 : 5410 
9887 : 5411 if .GO IS_SET 'IF DRY IS NOT SET THEN SEE IF GO IS SET 
9688 ; aig then 
9689 ; 541 begin 
9890 ; 3414 CLR_MBUS; ‘IF THE GO IS SET THEN TRY TO CLR GO 
92 416 if .GO IS_SET then ERRDF (19, ASYNC, DUMPER) else ERRDF (20, SYNC, DUMPER);: 
98% : 5418 11F GO IS STILL SET THEN ASYNC FAILURE 
9895 : 5419 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); ‘ELSE SYNC MODLE FAILURE 
9896 : 5420 end 
9897 : 5421 else 
9698 ;: 542. r 
9899 : 2258 E (21, ASYNC, DUMPER): 'ERPOR GO AND DRY BOTH CLEARED 
9900 : PRINTS (FiV_FMT, WRD_2, PHR_1, WRD_11, FNC_4, WRD_19); 
$02 : end; 
: 5427 DODU_FLG = ONE: ‘SET THE DODU_FLG 
9904 ; 5428 end;~ “ 
9906 : 5080 ir if .GO IS_SET 'SEE IF THE GO IS STILL SET 
9907 : 5431 . ctoos 
9908 ;: 54 begins 
9908 3 34 'TRY TO CLR GO IF STILL SET 
it ; 3435 if .GO IS_SET then ERRDF (22, ASYNC, DUMPER) else ERRDF (23, SYNC, DUMPER): 





EESEREEES See 


FF 
a5 


= 
N 


a Sst 











H 
MACRO M1113 22-DEC-80 12:16 PAGE Br 


SFrpoen 1208. 08:34:3)  Jorsag0 else 


!IF GO IS STILL if THE ASYNC yt 


PRINTS (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); 
= 


DODU_FLG = ONE; 
end; 
ENDSUB; 
if .DODU_FLG IS_SET 
then 
bobu 
(.ML_LUND ; 
DOCLN; 
ENDTST: 
150134 $113: JSR R1,$SAVE2 
TST -(§P) 
900040 157272 18 B1Ss 560, amu -REG+40 
157654 MOV aL R1 
179996 BIC mm bur R1 
990007 157254 BICB = #7 ,@ML..REG+40 
1 B1SB RI aA -REG*40 
162066 JSR FIRST BLK. XFER 
000051 157174 Pc Fins 
000001 157166 B1TB wm. 


Satta 3 


=16 V2(212) 
4.8L1.2 (63) 


LSE SYNC MODULE FAILURE 


!DROP THIS UNIT IF DODU_FLG IS_SET 


DODU.FLG 






SEQ 0228 





——_— 


é 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 2 
MISCELLANEOUS CODING SECTION 





J «WORD 17 
~ ;WORD  ASYNC 
“WORD  DUMPER 
9975 MOV #PIR.6,~(SP) ; 
Bre MOV WURD.1.-(SP) 
wat MOV MRO .43,-(SP) 
3378 % MOV #PHR.1,=(SP) 
9 MOV MRD. 2.~(SP) 
9980 0341 MOV #F 1V.FAT, -(SP) 
MOV #6 .~(SP) 
MOV SP RO : SP,* 
TRAP «14 
‘ib ADD #16,SP : 
BR 3s 3 
y 2s: tsTe Or .REG*5O ; 
9988 0 TRAP s«4§§5 ; 
9989 0 .WORD 20 
9990 [WORD  ASYNC 
9991 “WORD  DUMPER 
os my as) : 
99% MOV WRO.43,-(SP) 
9995 MOV #PHR.2,-(SP) 
7% MOV MRD .2,~(SP 
MOV &#F IV.FAT,-(SP 
9998 MOV #6,-(SP) 
9999 0: MOV SP.RO 3 SP.* 
10000 0342 TRAP «16 
2: 3$: - a .* : *,DODU.FLG 
1 y 157012 4$: BITB #1,@ML.REG+60 : 
1 } BEQ 38 
j 2 TRAP 5 : 
1 34 .WORD 21 
1 1342 “WORD SUPPER 
1 134¢ MOV MRD.19,-(SP) ; 
10010 0 MOV #FNC.4.-(SP) 
10011 © MOV MRO .12,-(SP) 
1 g 4 MOV #PHR.5,-(SP) 
3 134¢ MOV MRO. 3.-(SP) 
10014 MOV #F IV.FAT,-(SP) 
10015 0342 MOV #6,-(SP) 
10016 y MOV SP.RO 7 SP.* 
1001 yh TRAP «(14 
10018 y MOV #1,R2 : *,DODU.FLG 
1001 ADD #16 ; 
1 * 156722 5$: BIT é ,@ML.REG+60 ; 
1 TRAP 5 2 
1 .WORD 22 





Viv 


y 


Bg 


_ 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 343 | 
MISCELLANEOUS CODING SECTION SEQ 0230 | 








100 ZML4 3 c-1980 09:26:31 iT 
: >¢ : c-1980 09:21:22 Pa 
1008 5 -WORD  ASYNC 
100 t% eWORD DUMPER ™ | 
10 y’ MOV #RD.19,-(SP) F 5401 
1 TAL MOV «FNC. 4, =(SP) | 
10032 034: MOV MED. 12.-(SP) 
10033 034: MOV = #PHR.S,=( SP) | 
10034 034° MOV #uRD.4,~(SP) 
10035 03435 MOV AF 1V.FAT,-(SP) 
10036 034: MOV #6,-(SP) 
i v% MOV SP .RO 3 SP. 
: bette MOV n R2 DODU.FLG 
z s *, ° 
10040 03437 ADD #16,SP : 5 
oho) Sees S: 0 oeatgs oo". 
! la ; mov LSDLY.RI : *,SSTHP1 
10065 8$: CLR (SP) : SSTMP 
1334 a Nt 
10048 9S: DEC RO : SSTMP2 
10050 y 156574 108: B17 #200 -@ML .REG*+50 : 540 
1005¢ y 156514 B1TB #) QP .REG : 5411 
10054 156544 BIS8 #40,@ML.REG+40 : 541 
10055 MOV ma bur RI 
10056 BIC R1 
3 156526 BICB «0s #7 , AML RE 
10058 BIS8 —s—-R1. @ML.REG+40 
j 156454 8178 #1. aL .REG : 5416 
10060 0 BEQ 118 
10061 TRAP. 
10088 1 “WORD  ASYNC 
iooes BR 1 
ie "Ss: Me 
1 } “WORD SYNC 
1 “WORD DUMPER 
100: 12$: MOV MRD. 19,-(SP) ; 5419 
10071 MOV #FNC.4,-(SP) 
1007 MOV #RD.11,-(SP) 
100: MOV GPR.2,~(SP) 
107% MOV HRD. 1,-(SP) 
10075 MOV #F 1V.FAT,-(SP) 
10076 MOV #6,-(SP) 
100 MOV SP RO : SP.* 
10078 TRAP «14 
10079 BR 14$ ; 5411 





eo ae ae: ee 
rs ree 


| 
SEQ 0231 | 
T 
PA: 
54 
54 
543 








33 pee = 1980 O9:51 :22 


; -FLG 
-FLG 


SP 
*, 

: SP.* 
®, 


~ a O a 
Ce 
! RA Ba 00eoSB59 SESS CERERREDSESEEcELEDS 
| § Tee 


see EES ae 





1 = Sd 2¥ Dv COXON < 

BERS cE: SRE BERR PRS CRS ER NR eSeSee SNae 
SSSSS ISS fi 
4 v4 wate ~~) 4 44 ) 4 4 4 y4> sand, ol Yond ol onl amet al 4 oe” pe” pe | 4 yy | 4 4 4 »* nnnwne i p4papsps 


SOOOOOSOOCOOOSO OOOO SOOO OS BOOS OOO SOO COCOSOoOoOOOCoOoSooOoOooesooo?C 


ot an Van fan tax? 


BUSES s ess PEER RS BESS BOSSSSRS Or ete Sh SPREANANERARRANAAA 
$55555555555555555555555555555555555 
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2 
oa + | LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE bs 


OUS CODING SECTION 
1 H. © 
} % ' 
wit O3s086 bos736 20s: ter CSP 
1 Pe pees RTS PC 
101 
10144 ; Routine Size: words 
yd + Maximum stack én per invocation: 18 words 
yD. 
19188 T13:: 
10160 004767 176636 1$: JSR PC,$T13 
10161 106466 TRAP 66 
10168 O8s05> 5 ao|OOS 
wee 000207 RTS PC 
10166 ; Routine Size: 6 words 
45 4 ; Maximum stack depth per invocation: 0 words 
19178 
10174 ;: 5452 '!<BLF/PAGE> 





m2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 246 
MISCELLANEOUS CODING SECTION SEQ 0233 


o-pec=1980 09:81:22 PATCREALEDOL LS .LI <2 (66) 


eee 
Jao 
r 


| 
| 
| 

1 3 53! 

19180 : 34 BGNTST: | 

191 : 36 lee | 

10188 ; 530 TEST NUMBER: TST 14 

10185 : 2459 i TEST NAME: WRITE FUNCTION TEST 

10186 ; i 

19187 : 1 i TEST DESCRIPTION: 

1 : i TEST IF THE DRIVE CAN PERFORM A WRITE FUNCTION WITHOUT 

19189 : NG THE DRIVE. 

10191 : 5465 A WRITE FUNCTION IS WRITTEN INTO MLCS1. THEN GO AND ERROR BITS ARE 

1019¢ : 2466 i CHECKED FOR CORRECT STATUS. THIS UNIT IS DROPPED ON DETECTED ERRORS. 

101935 ; 5467 i 

10196 ; 5468 

10195 : 5469 Local 

101% : 5470 DODU_FLG: 'DROP UNIT FLAG 

10197 ; 5471 

1OIsS 327g BONS: 

10200 : 5476 SoU fre'= ZERO: 

1 : 5475 FIRST BLK _XFER 'SET UP A FIRST BLOCK XFERR 

} ; 24 MLCS1"= "An, iDO A WRITE FUNCTION 

10204 3 3478 if 60 IS_NOT_SET 'SEE IF THE GO IS SET 

10206 : 5480 in ‘ERROR IF NOT SET 

10207 : 5481 PeROF (24, ASYNC. DUPER); 

10008 3482 BRINTB (FIV PMT WRD_1, PHR_1, WRD_12, FNC_5. WRD_19); 

10210 : 5484 if .DRY IS_NOT_SET 'SEE IF DRY SET WITH GO CLEAR 

10211 : 5485 then ; 

Py 5486 n 

10318 : 5487 Pear (25, ASYNC, DUMPER): 

10214 3 3488 PRINTB (Fiv_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 

10216 : 5490 ‘ 

10817 3 2491 DODU_FLG = ONE: 'SET DODU_FLG 

10219 3 2498 else 'GO IS SET DURING FUNCTION 

is 3 3495 if DRY IS_SET 'SEE IF DRY CLEAR WITH GO SET 

1 : 4 : in ae ‘ERROR IF SET 

1 : 99 rire triv eee” uD ReiR2, WRD_43. WRD_1, PHR_5); 

1 : 5500 DODU_FLG = ONE; 

: : 3500 end; 

1 : 5 if .ILF IS_SET 'DID FUNCT F 

10299 5 5504 then ws — ee ee 








$$ 


é 
wae ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 367 
MISCELLANEOUS CODING SECTION SEQ 0234 


ims 33750c=1960 09:51:22 PArEALEOLMLS.BL 1-2 (64) 


‘ERROR IF YES 
27, ASYNC, DUMPER); 
VCMT. WRD_S, PHRS, WRD_I2, FNC_S, WRD_19); 


'DID FUNCTION CAUSE OPI 


begin a3 ‘ERROR IF YES 
E ASYNC, DUMPER): 
PRINTB “trivia. WRD_4, PHR_S, WRD_12, FNC_S, WRD_19): 


—— = ONE; 
DELAY (FRTY_US); ‘WAIT FOR XFERR TO COMPLETE 
if .DRY IS_NOT_SET 'SFE IF DRY CLEARED AFTER XFERR 
age OP 

4 IS_SET !TST GO CLR IF DRY NOT SET 


PORoS 
g 


5 


ee ee ee ce ee ad a cae ee ed eel ca ee ed ei el ce ed ced ce ed ed ed ed ed 
cen | 
Se 
PAPAAAAAAAMAAIMAAAIA 
A Ah nd Rt ah 
OWDONAULSWIN—O 
ade 
eS 
8 $33 
&% 283 
° — 
ry 
> 5 Gas 
4 ~ 
wn 
4 1 emee 


AVIV 
MMi 
SN 

N 


in 
"begin. 'CLEAR GO IF STILL SET 
if .@O — then ERRDF (29, ASYNC, DUMPER) else ERRDF (30. SYNC, DUPPER): 


S5555 


10e6e 2236 'TST GO TO DETERMINE FAILING MOD 
1 5 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
10264 5534 end 
1026s 5535 else ‘DRY NOT SET AND GO CLEARED 
4 5536 begin 'REPORT ERROR 
10267 5537 E (31, ASYNC, DUMPER) 
10268 5538 PRINTS (FIV_FMT, WRD_2, PER. 1, WRD_11, FNC_S, WRD_19);: 
10269 5539 end; 
10270 5540 
i 9 5541 DODU_FLG = ONE; 'SET DODU_FLG 
1 o266 3 
1 554 
10274 5544 if .GO IS_SET 'SEE IF GO CLEARED AFTER XFERR. 
10275 5545 then 
10276 5546 in 
ere ie oo ae “7 ‘CLEAR GO IF STILL SET 
a 244 if .GO IS_SET then ERRDF (32, ASYNC, DUMPER) else ERRDF (33, SYNC, DUMPER): 
10281 5551 TST GO TO DETERMINE FAILING MOD 
1OeRe 555. PRINTS (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_S5, 19); 
1 555. DODU_FLG = ONE; 
10284 5554 end;~ 
10285 .5555 
10286 5556 ENDSUB; 


| 
| 
| 
2 
| 
| 
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if .TRE IS_SET 
then 


MACRO M1113 22-DEC-80 12:16 PAGE 8.5" 
$3 pee=1980 09.51 :22 


'SEE IF XFERR CAUSED A TRANSFER ERROR 
!REPORT ERROR IF SET AND CONTINUE TEST ING 


in 
pear (115, INTER, DUMPE 
PRINTB (SIX_FMT, WRD_61, 
DODU_FL ONE 


€ = ; 


if .DODU_FLG IS_SET 
then 


ssi" 
(.ML_LUN) ; 
DOCLN; 
end; 


ENDTST; 


WRD_20, PHR_S, WRD_12, FNC_5, WRD_19); 


!DROP THIS UNIT IF DODU_FLG SET 


146762 $714: 


£14 
777 000200 156004 


J’ 








a 


se 


“4 


g55e*3°s 
BEASVFI 
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SE 


PEEEE ELE 
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T MACRO M1113 22-DEC=80 12:16 PAGE 549 
CTION SEQ 0236 


mus so pee=1980 09:51:22 





PA: 








BNE 
TRAP 
.woRD 31 
;WORD  ASYNC 
.WORD  DUMPER 
7306 MOV SPHR.G.~(SP) ; 
MOV WRD.1.=(SP) 
MOV MRD. 43,-(SP) 
MOV #PHR.1.=(SP) 
MOV MPRO.2,-(SP) 
MOV #F 1V.FAT,-(SP) 
MOV #6,~(SP) 
MOV SP-RO : SP,* 
TRAP «16 
000016 ADD #16,SP : 
BR 3$ ; 
155720 2s TST8 @ML.REG+S0 ; 
BPL 4$ 
TRAP 33 : 
. WORD 
;WORD  ASYNC 
“WORD  DUMPER 
7672 MOV #PHR.5,-(SP) F 
76 MOV MRD. 1.-(SP) 
MOV WRO.43,-(SP) 
MOV #PHR.2,—(SP) 
MOV MRO.2,-(SP) 
MOV #F IV.FAT,-(SP) 
MOV #6,-(SP) 
MOV SP RO : SP,* 
TRAP ‘16 
1 3$: MOV #1,R2 z *,DODU.FLG 
1 16 ADD #16,SP : 
1 1 155640 4$: BITB #1, @ML.REG+60 F 
1 BEQ 
1 TRAP 3 
1 WORD 
1 “WORD  ASYNC 
103: -WORD  DUMPER 
1 MOV MRD. 19.7 (SP) : 
1 4 MOV #FNC.5,—(SP) 
1 MOV MRD. 12,-(SP) 
1 MOV #PHR.5,-(SP) 
1 14 MOV MRO .3,~(SP) 
1 MOV #F 1V.FAT,-(SP) 
1 MOV #6,~(SP) 
1 MOV $P-RO 3 SP.* 
1 TRAP 4 
1 1 MOV #1,R2 z *,DODU.FLG 
1 1 ADD #16 : 
i 155550 5$: iT © @ML..REG+60 : 
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155422 
155342 
155372 


155354 
155302 


sML4 


g 3 


9S: 
10$: 


11$: 


12$: 


555° 


Rane tenseereseeseeS 


R22 
eas 


CELL tt arty cea 


ee 
Reuen— 
“ae 

5886 


7$ 
#200, @ML .REG+50 
138 


f WL .REG 
#40 ae. FEOSS 
R1 
a. 6+40 
R1 , aL .REG+40 
1g Ree 


SP,* 

* ,DODU.FLG 
=, SSTPP2 
*, SSTMP1 
STP 1 
SSTMP2 







sea 0237 
sa pec=1980 09:51:22 PA: 


551 


551 


5521 


5533 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 551 | 
MISCELLANEOUS CODING SECTION SEQ 0238 






10 sML4 Dec -1980 09:24:31 

6 3 33-pec 1980 93:54:22 PA: 

+8 RK 5 
: 13$: TRAP 33 : 55. 

10461 03 . WORD 

1046 [WORD  ASYNC 

10463 03 “WORD  DUMPER 

10464 03° MOV MRD. 19.7(SP) : 5 

10465 03. 4 MOV #FNC.5,=(SP) 

10666 1 MOV #RD.11,=(SP) 

10667 035 MOV #PUR.1,=(SP) 

10468 03: MOV WRD.2,-(SP) 

10469 03° MOV #F IV.FAT,-(SP) 

10470 MOV #6,-(SP) 

10671 MOV $PRO : SP,* 

1 4 TRAP 4 

1 1 1468: MOV #1,R2 * ,DODU.FLG 554 

1 a 16 ADD #i6,SP : 5 

1 } 1 155126 15$: B6ITB #1,@ML.REG ; 5 

ie ie 

1 155156 B1S8 @ML .REG+40 : 5 

1 mg : 1 MOV a RI 

106 1 BIC R1 

10680 03606¢ 155140 BICB «= -#7,AML .REG+40 

1 ot 1551 BISB R1,@ML.REG+40 

1 6 000001 155066 B78 “ a. .REG : 554 

1 7; ORD Hy 

1 ; [WORD  ASYNC 

1 J WORD R 

1 + + BR t 

1 16$: TRAP 5 

1 136 .WORD 41 

10691 “WORD SYNC 

1 % .WORD  DUMPER 

1 } 17$: MOV MRD. 19,-(SP) : 55 

1 bat 1 4 MOV #FNC.5,-(SP) 

1 16 MOV -11,=(SP) 

1 bs P 4 es ROY e 7 ) 

1 } § MOV MRD. 1.-(SP) 

1 3 1 MOV #F IV.FAT,~(SP) 

1 } MOV #6,-(SP) 

1 156 MOV ated : SP,* 

1 1 mw On R2 DODU.FLG 55 

A b *, % 

1 eae ADD #16,SP : 2 

1 ) 18$: TRAP 67 : 554 

1 ROR RO 

i 5166 BHIS 1 

4 176670 JMP 1$ 

10508 036 040000 154752 19$: BIT #40000, @ML .REG : 55 

10509 BEQ 20$ 









- = i 








F 3 

CZMLABO ML-11 LOGIC TEST MACRO M1113 22=-DEC-80 12:16 PAGE 252 

MISCELLANEOUS CODING SECTION SEQ 0239 
1051 sML4 pasts 1:24:31 
: ’ : § c-1980 Oot iae PA: 
1051 TRAP 55 r 5561 
1051 -WORD 163 
10516 -WORD INTER 
1051 . WORD 
10518 MOV MURD.19,-(SP) 3 5 
1 : MOV #FNC.5,-(SP) 
1 MOV #WRD.12,-(SP) 
1 MOV « #PHR..5. =(SP) 
1 MOV MURD.20,-( SP) 
1 MOV MED .61,-( SP) 
1 MOV IX. FMT .-(SP) 
1 MOV #7 ,~(SP) 
1 MOV SP RO : SP,* 
1 TRAP 14 
a MOV #1,R2 * ,DODU.FLG 5 
1 ADD #20,SP 5 
1 20S: DEC Re ; DODU.FLG 5 
1 BNE 21$ 
1 10c484 155300 MOV ML.LUN,RO ; 5 
1 TRAP 51 
as: PP Be ss 
4 . i RTS PC 

‘ 

10538 ; Routine Size: 333 words 
S44 3; Maximum stack depth per invocation: 18 words 
10545 
e924 
105 g T14:: 
10554 10 004767 176542 1$: JSR PC, $T14 3 5571 
19s BESS dness wf 
igaes 103 BLO 1$ 
10558 2 000207 RTS PC 
10559 
10560 ; Routine Size: 6 word 
10561 > Maximum stack depth A invocation: 0 words 
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MISCELLANEOUS CODING SECTION SEQ 0240 


1 
10371 
72; 5574 


' <BLF /PAGE> 


} 
ee 
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Ritetete 
Jato 
ws 
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H 
MACRO M1113 22=DEC-80 12:16 PAGE 254 


TEST NUMBER: TST 15 
i TEST NAME: § READ FUNCTION TEST 
TEST DESCRIPTION: 


a SSSESESFON SS 


VMI 


PAPA 
S333 
BELEFER 


ec ec me ee me me ee me me me ee ed cd ee ced ee ed ed ed ced eed ed od ed 
Mv 


PiRsT. XFER ( 
ALCS oat 


SESESREREDS seuance oumenareese 


Be Ge Se Ge Fe Ge Be Se Se Ge Ge Be Ge Fe Ge Be Be Be Ge Fe Ge Be Se Be Be Ge Ge Se Be Ge Be Ge Ge Be Ge Se Be Gs Be Oe Be Oe Se Oe Be Os Se Se Se Oe Oe Se 


Sanaa 


if .DRY IS_NOT SET 
then wr 


SERRERRERS 
DWDONAULWNO 
LERIRRIN MY 


DWONAULWN—O& 


R 


E 


hy 3 IF THE DRIVE CAN PERFORM 
A READ FUNCTION WITHOUT 
HANGING THE DRIVE. 


A READ FUNCTION IS WRITTEN 
INTO MLCS1 


THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES. 


DODU_FLG; !DROP UNIT FLAG 
= ZERO; 
0; 'SET UP A FIRST BLK XFERR 
'DO A READ FUNCTION 
if .GO IS_NOT_SET 'SEE IF GO GOT SET 
then _ 


” ‘ERROR IF CLEAR 
E ASYNC, DUMPER) 
PRINTB riven” WRD_1, PAR_1, WRD_12, FNC_6, WRD_19); 


begin 5. ‘ERROR IF NOT SET 
E ASYNC, DUMPER) 
PRINT. (FIV-FAT. WRD_2, PER_1, WRD_43, WRD_1, PHR_6):; 


SORU_PLS = ONE; !SET DODU_FLG 

'GO BIT GOT SET 
if .DRY IS_SET 'SEE IF DRY IS CLEAR 
then 


begin 'ERROR IF SET 





!TST DRY SET WITH GO CLEAR 


3 | 
ry ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 455 
MISCELLANEOUS CODING SECTION SEQ 0242 


1 IML4 ToPs=20 Bliss-16 v2(212) 
= Bo ecnt380 bo:51 32 <NEALEDBLIML4.BLI.2 (65) 
1 ; ? ERRDF (36, ASYNC, DUMPER);: 
1 : Printe (riv Par, WRD_2, PHR_2. WRD_43, WRD_1, PHR_5); 
; S 3 DODU_FLG = ONE; 
1 : : 
1 : if ILF 1S_SET 'DID FUNCTION CAUSE ILF 
1 : in ‘ERROR IF YES 
ieee 3 bear «37 ASYNC, 
106he ; Brite ily ean” WD 3 Reins, WRD_12, FNC_S, WRD_19); 
1 : DODU_FLG = ONE; 
10644 ;: 3 
1oene ; 5640 if .OPI IS_SET 'DID FUNCTION CAUSE OPI 
1oeey . 5641 then i 
10648 : begin ss ‘ERROR IF YES 
10649 : ak E ASYNC, DUMPER); 
10650 : 5644 eriree trivia” WRD_4, PHR_S, WRD_12. FNC_5S. WRD_19); 
10651 : 5645 DODU_FLG = ONE; 
10652 : 3646 3 
10655 ; 564 
10654 : 3648 DELAY (FRTY_US): ‘WAIT FOR XFERR TO COMPLETE 
10656 : 5650 if .DRY IS_NOT_SET 'IS DRY SET AFTER XFERR 
ee 
Pj n 
10659 : 2638 : 
10660 : 5654 if f 60 IS_SET 'TEST GO CLEAR WITH DRY NOT SET 
el , 
Py n 
1086s ; 3657 begin ICLEAR GO 
10665 : 5659 if .GO ee then ERRDF (39, ASYNC, DUMPER) else ERRDF (40, SYNC. DUMPER): 
10667 : 5661 'TST GO TO DETERMINE FAILING MOD 
1068 3662 PRINTB (FIV_FMT, WRD_1, PHR_2. WRD_11, FNC_5, WRD_19); 
100 544 : 5664 else 'GO BIT CLEAR WITH DRY NOT SET 
10671 ; 5665 begin 'REPORT ERROR 
10672 : 5666 E (41, ASYNC, DUMPER); 
10673 : 5667 PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_5S, WRD_19): 
10674 ; 5668 end; 
10675 ; 9 
10676 : 56 DODU_FLG = ONE; 'SET DODU_FLG 
10677 ; 5671 end; 
10678 ; 2676 
10679 : if .GO IS_SET ‘SEE IF GO CLEAR AFTER XFERR 
10680 : 5674 then 
10681 ; 5675 pogtn 
1 ; 267 CLR_MBUS; ‘CLEAR GO IF STILL SET 
10684 : 5678 if .GO IS_SET then ERRDF (42, ASYNC, DUMPER) else ERRDF (43, SYNC, DUMPER); 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE $56 
MISCELLANEOUS CODING SECTION SEQ 0243 


1 sm4 c-1 26:31 TOPS-20 Bliss-16 V2(212) 
10887 : ye eae ts $334 i30 PA: <NEALE>GLIML4.BL1.2 (65) | 
10689 ; 79 | 
19690 3 'TST GO TO DETERMINE FAILING MOD 
1 : 1 PRINTS (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); | 
4 4 3 DODU_FLG = ONE; 
1 3 end; 
10696 ; 
10556 $ 5S ENDSUB; 
P+ | 
! 0697 if TRE IS_SET 'SEE IF XFERR CAUSED A TRANSFER ERROR 
1 : to ‘REPORT ERROR IF SET AND CONTINUE TESTING 
1o700 : Be pear (116, INTER, DUMPER): 
10701 : 5691 PRINTB (SIX_FMT, WRD_61, WRD_20, PHR_S, WRD_12, FNC_6, WRD_19); 
4 3 569 DODU_FLG = ONE; 
10703 ;: 569 end; 
10706 ; 569% 
10705 ; 5695 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 
10706 : 5696 then 
10707 ;: 5697 pogem 
10708 : 5698 (.ML_LUN) ; 
10709 : 5699 DOCLN: 
10710 ;: 5700 end; 
10711 : 5701 | 
10712 : 5702 ENDTST: 
19720 167 145514 $T15: JSR R1,SSAVE2 : 5 
10 46 TST -(§P) 
10 j 1$: TRAP 2 : 55 
10 1 000060 154652 BISB #£460,@ML.REG+40 : 5601 
10 133234 MOV ma. bur RI 
10 1 BIC fi RI 
10 990007 154634 BICB = #7 , AML. REG+40 
1 77 1 BIS8 R11, @ML.REG+40 
10 CLR R2 : DODU.FLG 
1 157646 JSR PC. FIRST .BLK.XFER : 5604 
1 990071 154554 MOV aM RE : 5605 
1 1 154 BITB «= #1, aL .REG : 560 
10 BNE ¢ 
10 TRAP ; 561 
1 .WORD 42 
10 SWORD  ASYNC 
10 “WORD 
10 906506 MOV MRD. 19,-(SP) ; 5611 
10 10004 MOV #FNC.6,-(SP) 
10739 006426 MOV MRD. 12,-(SP) 





Oe eee TSN 
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SEQ 0244 
sm c-1980 09:24:31 TOPS 
3 3b pecn 1385 Oost. PA:< 
MOV #PHR.1,-(SP) 
MOV MRD. 1,~(SP) 
MOV #F IV.FAT,-(SP) 
MOV #6,-(SP) 
MOV SP -R0 3 SP, 
TRAP 6 
154536 giTe #200, @ML .REG+50 : 5613 
TRAP 3 ; 5616 
WORD 
“WORD  ASYNC 
“WORD  DUMPER 
MOV #PHR.6,-(SP) : 561 
MOV MRD. 1.~(SP) 
MOV #uRD.43,-(SP) 
MOV #PHR.1,—(SP) 
MOV 2,-(SP) 
MOV #F 1V.FAT,-(SP) 
MOV #6,-(SP) 
MOV SP, : SP,* 
TRAP «14 
ADD #16.SP : 5615 
BR 3s : 690 
2s: TSTB @ML.REG+5O : 
BPL 4$ 
ya pc ee: e WORD ASYNC 
1O578 36,564 7472 iv oon ef (SP) ; 
10776 036 76 MOV MRD.1.-(SP) 
10775 0365 MOV #RD.45,-(SP) 
10 4 MOV MRD .2.~(SP) 
10778 7: MOV #F IV.FAT (SP) 
1 6 MOV #6,~-(SP) 
1 56621 MOV $P.RO : SP.* 
1 366 TRAP 4 
1 1366 3$: MOV #1,R2 : *,DODU.FLG $29 
1 ) 36 16 ADD #16,SP : 656 
} 1366 154372 4$: B1TB pete : 
1 } tol TRAP : 5635 
1 36646 WORD 23 
1 ie Y eWORD ASYNC 
1 13665. “WORD  DUMPER 
1 “A MOV MO. 19.7 (SP) : 5636 
1 6 4 MOV #FNC.5,—(SP) 
10798 )36 MOV M#uRD.12,-(SP) 
ior O8ee 346 oie Se Sab) 
10795 036 MOV #F IV.FAT,-(SP) 
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| CZMLABO ML-11 LOGIC TEST 

MISCELLANEOUS CODING SECTION SEQ 0245 
1078 sML4 2-Dec-1 1:26:31 
: te 3 , . a haat b+ Ostia. 
1 é MOV #6,-(SP) 
1 ‘ ROY ated ; SP,* 
1 TRAP 4 
108 MOV #1 .R2 : *,DODU.FLG 
108 ADD #1 3 
108 154302 5S: BIT £ -@ML .REG+60 ; 
10°. BEQ 
108 TRAP 5 : 
108 -WORD 46 
est -WORD ASYNC 
1081 MOV MRD. 19,=(SP) ; 
1 MOV #FNC.5,—(SP) 
1081 MOV -12,=(SP) 
1081 MOV -5,~(SP) 
10815 0 MOV 4,-(SP 
10816 MOV #F IV. FAT, -(SP) 
ieeie OF —~ se SP 

eo Z * 

iets } TRAP «16 
106 MOV #1 .R2 z *,DODU.FLG 564 
108 ADD #16,SP 
1082; 6S: MOV #50,RO + *,$STMP2 
108 7$: BEQ 10$ 
! B26 0370, nov LSDLY.R1 : *,SSTHP1 
10826 0370: 8S: CLR (SP) : SST 
108 y DEC R1 + SSTMP1 
10828 y BYE 88 
! 855 98: DEC RO : SSTMP2 
108 154154 10S B1TB -@ML .REG+50 : 56 
10832 0 BAE iss 
1 x33 OF 154074 BITB #) aA .REG : 5654 
108 154124 BIS8 £460,@ML.REG+40 : 56 
108% 0 MOV R1 
10837 03; BIC R1 
10838 0 154106 B1¢B a RE 
10839 6. BIS8 R1,aML.REG+40 
1 1 154034 BITB 4 4= #1 aL REG : 56 
’ 1 BEQ 4 
1 WORD 23 
10844 -WORD  ASYNC 
10845 WORD 
} 118 oRAP 38 
1 WORD 
ioeed “WORD SYNC 
10850 “WORD DUMPER 
10851 12$ MOV MRD. 19,-(SP) : 5662 
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MISCELLANEOUS CODING SECTION SEQ 0247 
1 sML4 980 09: 3} DPS 
10310 : So pec 1580 09; PA: 
1 ) 52706 000016 ADD #16,SP ; 5675 
: 18$: ag 67 3 555 
1 ty BHIS Wes 
1 $ 5 176670 JMP 1$ 
1 1 153504 19%: BIT #40000, @ML .REG : 
lovig BEQ es 
10919 @ TRAP 3 
10920 0. .WORD 164 
109¢ <WORD INTER 
10922 “WORD  DUMPER 
1092" MOV = #RD. 19, =( SP) ; 5691 
1092 MOV #FNC.6,-(SP) 

1092 MOV MRD. 12,-(SP) 

105 4 MOV #PHR.5,-(SP) 

109; 1 MOV a0.20.~(SP) 

1092 % MOV MRD .61.-(SP) 

105 100 MOV #SIX- FIT .~(SP) 

105 000007 MOV o~(SP 

105 MOV SP.RO 3 SP. 

105 TRAP ‘14 

105 000001 MOV #1,R2 * ,DODU.FLG 
109 000020 ADD #20,SP 

109 208: DEC R2 : DODU.FLG 
10936 BE 218 

109 154032 MOV ML.LUN,RO : 

10938 TRAP «51 

10935 TRAP & 

10940 21$: TST (SP)+ : 5 
10941 RTS PC 

1 : Routine Size: 333 words 

Ly s9 * Maximum stack depth per invocation: 18 words 

10950 

10954 

10°58 957556 T15:: 

10959 56 006767 176542 1$: JSR PC.$T15 ; ve 
10960 037562 104466 TRAP 66 

10961 037564 ROR RO 

10962 037566 10. BLO 1$ 


oe Ee OP Oe 


1 
1 
1 


Ve 








5703 
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RTS PC 
3; Routine Size: 6 words 


3; Maximum stack depth per invocation: 


! <BLF /PAGE> 


0 words 


338 


-19 
-19 





80 09:91:22 Pas 
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MISCELLANEOUS CODING SECTION SEQ 0249 
10979 :ML4 —Dec-1 :26:31  TOPS-20 BLiss-16 v2(212) 
1998 3 $5 poem 1388 93:84:33 PA: <NEALE 4.BL1.2 (66) 
1 28 3 ! 
10985 ; 164 
10986 { TEST MUMBER: TST 16 
16 38 : a TEST NAME: CLEAR FUNCTION TEST 
10990 : ar i TEST DESCRIPTION: 
1095 : is TEST IF THE DRIVE CAN PERFORM A CLEAR FUNCTION WITHOUT HANGING THE DRIVE. 
52 
1099 : 5 A CLEAR FUNCTION IS WRITTEN INTO MLCS1. 
10098 : a i THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS. 
10996 : rig i THIS DRIVE IS DROPPED ON DETECTED ERRORS. 
1 3 71 i 
19999 | am 
11000 : local 
11001 : DODU_FLG; 'DROP UNIT FLAG 
11038 : gp: 
11005 ; 2 boo Fle = ZERO: 
11006 : MLER’= ONES: tSET | BITS IN ERROR REGISTER 
11007 ; mics! = DRV CLR: A CLEAR FUNCTION 
18 3 Te Y (ONE_OS); iDELAY 
11010 3 3 if .60 IS_SET 'SEE IF GO CLEARED AFTER FUNCTION 
11012 : 5734 in ‘ERROR IF SET 
11018 : 735 peer (44, ASYNC, DUMPER); 
11014 : PRINTB (FIV_FMT, WRD_1, PHR_S, WRD_11, FNC_3, FNC_7, WRD_19); 
11016 : 2 if .DRY IS_SET 'TST DRY CLEAR WITH GO SET 
11 3 then 
eis 3 ro! in ‘ERROR IF SET 
11019 : 76 E (45, ASYNC, DUMPER); 
11020 ; 7 PRINTS (FIV_FMT, WRD_2, PHR_S, WRD_43, WRD_1, PHR_5); 
mf oe of 
" 3 748 DODU_FLG = ONE; 'SET DODU_FLG 
11096 ; Sra else 'GO CLEARED AFTER FUNCTION 
1100 ; 74 if DRY IS_NOT_SET 'TST DRY SET WITH GO CLEAR 
11029 ; 5731 begin 'ERROR IF NOT SET 
11030 ; 75, E , DUMPER); 
11031 ; 575, PRINTE “Give PHT “WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 
. 3 754 = ONE: 


755 pl 





a a a 





050 : 
O88 
O38 
4 
O61 
5 
4 
E 
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eec~1980 O9:S1:22 PRs <hEALESOL SM 


aed IS_SET !DID FUNCTION CAUSE ILF 
in 'ERROR IF YES 
PRAOF (47 ASYNC, DUMPER) ; 


PRINTB hives FMT, WRD_3, PHR_5, WRD_12, FNC_3. FNC_7, WRD_19); 
DODU_FLG = ONE; 


if .0PI IS_SET 'DID FUNCTION CAUSE OPI 
nm ‘ERROR IF YES 
E ASYNC, DUMPER) 
Prine (Flv Pa. WRD*, PER_S, WRD_12, FNC_3. FNC_7, WRD_19); 
DODU_FLG = ONE; 
if .MLER neq ZERO 'TEST ERROR REGISTER FOR CLEAR 
5 ‘ERROR IF NOT CLEAR 
E (49, ASYNC, DUMPER); 
PRINTB (SIX_FMT, FNC_3. FNC_7, WRD_19, WRD_14, WRD_13, REG_3): 
ENDSUB; 
it f -DODU_ FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 
“ee CL _LUN); 
ENDTST: 
164246 $T16: JSR R1,S$SAVE2 : 
TST 5°) 
1$: TRAP 3 


153404 BISB amt .REG*40 : 
ae MOV mh 
BIC 
060007 153366 BICB AEE “REG+49 
B1SB RY. @AL-REG+S a 
177777 153372 MOV = #1, @ML..REG+60 : : 








-—S oe PNM "rn 
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MISCELLANEOUS COD 
11 sML4 -19. 2:24:31 T 
1 Seen i580 Osstiae Pa 
11 153304 MOV #11, @ML.REG ; 
1105 ' MOV "ll, : *,$STMP2 
11 'y. 2s: BEQ 
u ry mov LSDLY.R1 : *,SSTHP1 
11098 3S: CLR (SP) : SST 
11099 DEC R1 + SSTMP1 
11 BNE 3s 
" 4$: bec RO : SSTMP2 
4 153250 5$: S178 #1, @ML.REG : 5 
1 TRAP 8 : 573 
1 . WORD 
1 “WORD  ASYNC 
11 “WORD  DUMPER 
11 MOV MRD. 19,-(SP) : 
1 MOV #FNC.7,-(SP) 
1 MOV #FNC.3,-(SP) 
11 MOV MRO.11,-(SP) 
11 MOV #PHR.5,—(SP) 
1 MOV MRD.1,-(SP) 
1 MOV #F 1V.FAT,~(SP) 
1 MOV #7,~-(SP) 
11 MOV ated : SP,* 
11 TRAP 4 
1 TSTB @ML.REG+SO ; 
11 BPL 
11 TRAP 5 : 5741 
11 .word 55 
11 “WORD  ASYNC 
11 “WORD  DUMPER 
1 MOV #PHR.5S.=(SP) : 57 
11 MOV MRD.1.-(SP) 
1 MOV MPO. 45,-(SP) 
11 MOV #PHR.S,=(SP) 
1 MOV MRD .2,-(SP) 
1 MOV &#F IV.FAT,-(SP) 
1 MOV #6,-(SP) 
11 MOV $P.RO : SP,* 
11 TRAP 4 
11 ADD wi6,sP : 57. 
11 6$: MOV ge + *,DODU.FLG 45 
t a : 
i 153140 7$: S178 #200, @ML .REG+50 : 574 
11 TRAP 8 : 5752 
11 WORD 
11 “WORD  ASYNC 
11 “WORD  DUMPER 
11 MOV #PHR.6,-(SP) : 5753 
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a a ak ag a a ak tk ad ad ed ag ad wk a wt ot at od ow £2“ 2 I ot ot 9 ot ot ot SS = 2 =) 1 


g 


y 


$..° 
MACRO M1113 22=DEC-80 12:16 PAGE 


IMLS 
MOV gREG.3 -(SP) 
MOV MRD. 18, (SP) 
MOV MRD. 14, ~(SP) 
MOV WARD. 19.=(SP) 
MOV ane f-= (5) 
MOV #FNC.3,-(SP) 
MOV #SIX, FAT. =(SP) 
my ea 
TRAP % 
ADD #20.SP 

118: TRAP v3 
BHIS Ae 
JMP 1$ 

wets Fa.” 
MOV ML.LUN,RO 
a Sd 

13$: TST (SP)+ 
RTS PC 

; Routine Size: 218 words 


: Maximum stack depth per invocation: 


T16:: 
1$: JSR PC,$T16 
TRAP 66 
RO 
BLO 1$ 
RTS PC 


; Routine Size: 


6 words 
; Maximum stack depth per invocation: 0 words 





A eS _ > 


33-pec=1980 09:91 122 





3: SP,* 

3 5 
3; DODU.FLG 5 
g 5 
3 5 


19 words 





= . -_ 
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SCELLANEOUS CODING SECTION SEQ 0255 


a Fo oee=1900 O9:S1ia2 | PAC ANEALES IM See lo <67) 
791 | 
73g BavTst 
70% $44 
795 i TEST MMBER: TST 17 
79 


i 
i 
! TEST DESCRIPTION: 

: TEST THE DATA DIAG ae MLD1, MLD2, 
i 

i 


| 

i TEST NAME: DIAGNOSTIC REGISTER TESTS 
MLE2 

FOR 1°S/0'S, SHIFTING 1°S/0°S AND INITIALIZATION 


an MBUS ; 
REG (.TST_PAT, .REG SEL, index); ‘WRITE TO THE REGISTER 
A REG ( (TST PAT, .REG_SEL, ERR_FLG);  !READ THE REGISTER 


oF RUS IS_SET 'SEE IF READ FOUND AN ERROR 


sate 
360s local 
208 CLR_DATA , 'CLEAR DATA FOR INIT TEST 
5807 SAVE , ' TEMPORARY SAVE LOCATION 
5808 ERR_FLG , ‘ERROR FLAG 
5809 TST PAT , 'TEST PATTERN 
5810 index fa 'POINTS TO REGISTER PRESENTLY BEING TESTED 
5811 DODU_FLG 'DROP UNIT FLAG 
eats DODU-FLG™ = ZERO; 
ane 
an FIRST TEST THE REGISTERS FOR ONES AND ZEROES 
5817 
aai8 TST_PAT = ONES; 'LOAD TEST PAT WITH ONES 
5820 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
oes! begin 
aon BS _. iner REG_SEL from_11 to 13 do — — - —LTEST_ELEVEN. WRITE/READ- REGISTERS — —---- - -————— 
ie n 
582 
5828 
1 


begin 'IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
E (121, ARR_DAT, DUMPER): i ARRAY DATA AILURE 

PRINTB (SIX FMT, PHR_4 we {2. Fu FNC_6 Ney ); 

REGISTER_ADD), .QT_SATA,~.RD_DATA): 


wa 
3 
5 
Os 
5 
Mo 
o 
z 
in 
aw 
nv 
z 


a 


Se Se Se Se Se Be Se Se Se Ge Se Ge Se Se Ge Be Se Be weds Be Ge Se Ge Be Se Ge Be Se Se Ge Ge Ge Ge Ge Ge Be Se Se Se Ge Ge Be Se Ge Se Ge Ge Se Se Ge Ge 


TST_PAT = not .TST_PAT; !REPEAT AGAIN WITH COMPLIMENT DATA 


cc ee ee ee ed ek ee ed ee wee ee eh cee ak ae ce ed ed wd ew wd ae ac wd dk wee ee wed we el ce a ad ed ed ed ed ed ed ed ed od 2 a nd ed 


WAG 


’ 
ee ek ed em ed ewe we ag ee ed ed a a ed ed ae ed kd ed ed ed ed ad ed ad cd dk dk ad ed nd ed od od od od = 4 2 2 ed 


BEES 








ak ek ae ae wed wd ae a ed we de me as ae aed ed ed me ed ad wed ed ed dd dd td ed ed ed ng sd ed td ad ed ad wd ng ed ed ad wd od oe = © 2 2 td 
ee ce ee ce cee ee ee cee ee cee cee ce ce ee ee ce cee ee cee ee cee ce ed ee cee ce ced ced ce cee cee cee ed ed ce ced ee ed ed ed a ed ee ced ed ce ed ed ced dd ed eed 


NITES REFEREE SIRENS SERS SEES 


Bpec=1980 09:51:22 PASCREALESOL SOLS. BLI<2 C67) 


TEST THE REGISTERS FOR SHIFTING ONES AND ZEROES 


TST_PAT = ONE; 'LOAD TST_PAT WITH A 1 IN A FILED OF O'S 
incr SHIFT from 0 to 15 do 'DO SHIFT 16 TIMES 
begin 
incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
begin 
incr a from 11 to 13 do ‘TEST ELEVEN READ/WRITE REGISTERS 
CLR 
REG (.TST_PAT, .REG.SEL, index): WRITE TO THE REGISTER 
0 REG (.TST_PAT, .REG_SEL, ERR_FLG): iREAD THE REGISTER 
if -ERRFLG IS_SET 'SEE IF THE READ FOUND AN ERROR 


!IF THE ERROR FLAG IS_SET THEN ERROR 
TARRAY DATA ee FATLURE 


E (122, ARR_DAT, DUMPER);: 
PRINTR (SIi_FaT. oA , WRD_12. FNC_5, FNC_6, WRD 52, WRD_56); 
PRINTB (FMT~16, . 6 C.ifidex, REGISTER_ADDJ, .QT_DATA,~.RD_ DATA): 
DODU_FLG = ONE: 
end; 

ENDSUB; 

end; 

TST. PAT = not .TST_PAT; ‘REPEAT WITH A 0 IN A FIELD OF 1°S 
TST_PAT = .TST_PAT“ONE; ‘SHIFT THE 1 IN THE FIELD OF 0°S 


end; 


NOW TEST THE REGISTERS FOR INITIALIZATION 


REG_INIT_FLG = ONE; 
TST_PAT = ONES; 'BACKGROUND PATTERN 


incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
begin 


incr REG_SEL from 11 to 13 do !TEST THIRTEEN REGISTERS 


| 


Q@ 0256 


| 
| 
| 
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MISCELLANEOUS CODING SECTION SEQ 0257 


11374 :mL4 -1 :26:31  TOPS-20 BLliss-16 v2(212) 

+ 3 $5 pee ~ 1585 Oot i35 PA: <NEALE 4.8L1.2 (67) 

11377 ; in 

11378 : Beasts, 

11379 : 

11380 : 6 t.TST_PAT, .REG.SEL, index): {WRITE REGISTER WITH BACKGROUND 

11381 ;: CURT DATA : (.Al) or (. IGNORE): iCALCULATE THE CLEARED DATA PATTERN 

11382 : REG INIT_FLG = = ONE: 

u : 1 RD_REG ([CLR_DATA, .REG_SEL. ERR_FLG); !READ THE REGISTER FOR THE CLEARED DATA PAT 

" ; 308 if -ERRFLG 1S_SET 'SEE IF READ FOUND AN ERROR 

11387 : 5905 begin IF IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 

11388 ; 5906 E (118, ARR_DAT, DUMPER); DA A 

11389 : 5907 PRINTS (FIV_FMT. PHR_4, WRD_12, WRD eet oD. 

11390 : 5908 PRINTB (FMT-16, .ML_REG C. index, REGI TSTER ADDS. * art Poata, -RD_DATA); 

11391 ; 5909 DODU_FLG = ONE: 

11398 : 5910 end; 

11 3 5911 

113% : 591 ENDSUB: 

Wee : 591 end; 

113% : 5914 

11397 : 5915 TST_PAT = not .TST_PAT: ‘REPEAT WITH COMPLIMENT BACKGROUND PAT 

11398 : 5916 ; 

11399 : 5917 

11400 : 318 REG_INIT_FLG = ZERO; 'CLEAR THE FLAG 

11408 : ay te if f -DoDU_ FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 

11406 : 5 

11405 : 2 ee Sas _LUN);: 

11406 : 926 

11407 ; 

11408 : 5 

bp 4 3 5 ENDTST; 

1Wei3 040472 167 143420 $T17: JSR R1,$SAVES : 

11618 CMP -(SP) ,-(SP) 

1141 CLR -(SP) : DODU.FLG 581 
11 177777 MOV #~1,R3 + *,TST.PAT 5818 
11 CLR R1 : TWICE B20 
11 1 000013 1$: MOV #13.R2 > *,REG.SEL Bo 
11 1 2s: TRAP 3 3853 
" 16 1 ‘ 152470 6158 S60 am -REG+40 : 

11 bag703 137936 BIC mis RS 

11 ;; 000007 152452 BICB 





& 
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152172 
152154 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 











mN 


<< # 
* = <_J ee fb a* « * 
mi bh ° ont ° a. a <a . ¢. 34 = J ba be 
oo Sed See pag e255 8699 SHES 
OO Fee eee enon) —Oo $ -) “VoVv Oo 
ge bas pez SBS be 2 2 res ow & & 
ee *e ee te *%e ee *e %e Se ee *e a a *e ets ee ee ee te te te te ee ee s a 


et 
ORI 
ReG+40 
F: 
FLG 
a8 
*~(SP) 
a8) 
‘=(SP) 
6.2050) 
f -=(SP) 


2(R1) 


Ww 


% - oc tatalal 


a a vies, linear 
SE 


sf INIT.FLG 

gia 

sb) 

5-52) 
2,=(SP) 
FP 
i: 05 

-REG+6(R1) 

= T. 


ai 
RI 
ML. REG*, 


en ee & 2222 


g: 


wer rN arta ° ; SOO vy MUD ODODOOWNS 
at ator 5SONIMOOOOC DED SSSSOOSS vit <> 
WO — We < aad = BRS ~@ S ¥2 ¢ {-3: is Ror ox Pa = 
RSARARAGASINVENT NOVO SONS TSE e ESO RNOSNRE Se ROT 
> 
RISLSIS SISK CSE OMe LAK oe Ber SeSe che rer weueomrvrrrceeer 
Pty So od te a ANP = : Nth a Or oom "¢ eprgh oO! - 
AYP Oe INM=-f rye ure oe SSORKAC SSSss OON ‘> PSA 
aaa A a a a a a a ad ada EERE EEE SRE EG er 
OF FFF FPF PF Se eee eee Seer see ese sess eee ss eeees. SSSSSASSA 
A + 
‘ty dy. 
C tk sk SE eck SE ek cool An el ek oh A eek A a Se a a ek ek ek eh Sn el ek ek ek a ack ek oeek ok eh SR AR ae eel ek eh Seer errr 
Cl see a ek el ciel ke ea ced ok ek cel ok ee ek ok ol ek ee ke oe ee et ee et te kd Ot ae 





ec ec ee ce ee ed ee nd ce ce ed ed ce ed ce ced ced ee ce ced ed ed ce ccd ced ee ced ce ce ce ce ced ed ed ed nd ed eed 
ee i eke ee Le ol LL ee ee ee ee Eee ee 
ARAAAO 
ad odo ad dD 
OEBNAUS 


SEERETERRSSS REGRESS 





SCELLANEOUS 
| 
61 
61 
61 





1 
1 
} 151376 
1 13154 
1 16 
1 
1 
1 
SOD 
1 
1 
1 
1 
1 
1 
: 000015 
1 
1 
: 000001 
1 151310 
: 000001 
: 151740 
1 
: 000006 


1636 
652 004767 176614 


~~ 


JSR 
TRAP 


ROR 
BLO 
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MOV RO 
TRAP 
ROY -DATA, (SP) 
MOV § 
MOV ML .REG(R1) .-(SP) 
MOV #FMT.16,- 
MOV #4,-(SPS 
MOV SP RO 
TRAP 14 
MOV #1 ,40(SP) 
ADD #26,SP 
ADD #12,SP 
TRAP 67 
ROR RO 
BLO 9% 
INC 
CMP 1S 
BLE 9$ 
COM R3 
INC RS 
CMP R6,A1 
BLE 8s 
CLR REG. INIT.FLG 
CMP | 
MOV ML.LUN,RO 
TRAP 51 
TRAP 44 
ADD #6,SP 
RTS PC 

: Routine Size: 312 words 

3; Maximum stack depth per invocation: 


PC ,$T17 
66 
RO 
1$ 





33 pec=1980 O9:51 s22 





5 
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sML4 
041664 000207 RTS PC 
3; Routine Size 


5928 !<BLF/PAGE> 





6 words 
+ Maximum stack depth per invocation: 


0 words 


3350c 


-19 
-19 


BO O9:S1:22 PAs 


OO es 
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MISCELLANEOUS CODING SECTION SEQ 0263 
11667 :mL4 —Dec-1 :26:31 TOPS-20 BLliss-16 v2(212) 
i : $5 pec~ 1388 $5: i35 PA: <NEALE 4.8L1.2 (68) 
11670 ; ! 

11671 ; ! 

1167e : BGNTST: 

11673 : 

11676 ; lee 

11679 ; i TEST NUMBER: TST 18 

1677 : TEST NAME:  COMPOSIT ERROR TEST 

We8 : i TEST DESCRIPTION: 

11680 : i TEST TO SEE IF SETTING EACH 

11681 ; i BIT IN THE ERROR REGISTER 

1168 3 CAUSES A COMPOSIT ERROR BY: 

11684 : i WRITING A SHIFTING ONE THROUGH 

11685 ; i THE ERROR REGISTER (SKIPPING THE 

11686 : i READ ONLY BITS) AND TESTING THE 

11687 : i COMPOSIT ERROR BIT IN MLDS 

HES: ee Oe 

11690 : i ' 

He Ben 

11098 : 9¢ Local 

116% : 95 DODU_FLG, 'DROP UNIT FLAG 

11695 : 5954 DAT PAT. DATA PATTERN 

11696 3 955 SKIP_MASK; iPOINTS TO MLER READ ONLY BITS 

11698 : CLR 3 

11699 958 bODU Fle’ = ZERO: 

90 SIP AK «= 30°165157": iDATA PATTERN SET BIT 0 IN MLER 
P = . b 

11703 ; 336 DODU_FLG = ZERO; 

11704 3 2963 incr, CONT from 0 to 15 do ‘WRITE AND SHIFT DATA PAT TO MLER 16 TIMES 

11706 : 965 

11707 ; 338 if (.DAT_PAT and .SKIP_MASK) neq ZERO 'SKIP IF DAT_PAT FALLS ON READ ONLY BIT 

11709 : 968 in 

11710 ; 4 

HI al 13 970 MLER = .DAT_PAT: ‘WRITE DATA_PAT TO MLER 

Has ; 9¢ if .COMP_ERR IS_NOT_SET 'SEE IF DAT_PAT CAUSED A COMP ERROR 

11715 : 97% begin 

11716 : 975 E (50, ASYNC, DUMPER); 1 ERROR 1 NO COMP ERROR 

11717 : 976 PRINTB (FOR_FMT, FNC_8, PHR_1, WRD_12, FNC_8): 

11718 : & PRINTS (FMT-4, .DAT_PAT); 

11719 i s DODU_FLG = WW: 

1950 : 980 . 








SEQ 0264 


5 
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TEST 


I 
I 


LOGIC 
CODING SECTION 


CZMLABO ML-11 
MISCE 


Be 


TOPS-20 BLiss-16 V2(212) 
Mes A toeg ye (68) 


!SHIFT DAT_PAT TO NEXT BIT AND REPEAT 


3 pee=1980 b9551:3e 


!DROP UNIT IF DODU_FLG IS_SET 


= 
fe 
eeeatzc 
ee 8 wf 
§-$-——5 
& Scfoo 
* 
a ms 
a wy = = 
P34 1 § = 
x - 4 4 - © 
?.. ° oO ¥ ™ ~ 
sie 2 5 2 
a ‘ec 3 - - 
ee rad e 
sf 8 $882 = 
3 o 
a 
oe 


— 


Rina 


oI all R4 


S2 


& 
2 


nn 


; DAT.PAT,* 


. 
° 
7 
. 
e 


oe 


597 





5977 


: DAT.PAT,* 


ae A eae 


(SP) 


Tree 


essgteselsSsenpenpetes 





RSRRRERRERRAASRRAS TERE RRR RERAS ENDS SSD BSRE CERES 


Deh eh el el el el eh ee el eh ee ed el ed el eh el ne eh ee ee ee ee ee ee ee he ed ed ed el el el 
OL 6 OE LF FE FF FF FF FF FF CEE CE CCE CCE CCC SESS CSE eer 





000017 


151476 





004767 177552 


NSARSS 


BSS E Reese ss ose RSS see Iaessassaeansal] 
RRP: 2 


me ed ed wt ad “gt od sh = 2 oI SS) Ls SS SI oS os St 2 os a St SS 2 at td I ot YI SY Lt 
ac ce ce we ek med ey ee ee a ak ed ed ak ae ed nd ed td dd td kd ed ed nd od td oe od = 9 2s 2 ed 


F 
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; 5995 !<BLF/PAGE> 


5 


sML4 
MOV #2,-(SP) 
MOV $P-RO 
TRAP 4 
MOV #1,R1 
ADD #90. 

3$ TRAP = «6 
ROR RO 
BLO 

4$ ASL 
INC 
CMP 17 
BLE 1$ 
DEC R1 
BNE S$ 
MOV ML.LUN,RO 
TRAP ssO51 
TRAP sa 

5$: RTS PC 


3; Routine Size: 73 word 


: Maximum stack depth oer invocation: 


T18:: 
1$: JSR PC,$T18 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 word 


> Maximum stack depth oor invocation: 


13 words 


0 words 


. SP,* 
; *,DODU.FLG 


; DAT.PAT 
; COUNT 

; COUNT,* 
; DODU.FLG 









SEQ 0265 


$e pec=1980 O9:51 :22 
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- 5opec=1980 09:81:22 PATEALEEL LS. 1-2 (69) 


TEST NUMBER: TST 19 
i TEST NAME: ATA BIT TEST 
i TEST DESCRIPTION: 
TEST THE ATA BIT FOR SETTING 


1. SETTING A BIT IN THE ERROR 
REGISTER. 


ar THE ATA BIT 1 CLEARING 
he BEING SET 


WRITING A FUNCTION TO MLCS1. 
d: WRITING A os INTO THIS 
UNITS ATA BIT 


TEST THE ATA ott _ NOT CLEARING 
AFTER BEING SET 


1. WRITING A ONE INTO THE 
ATA BIT OF THE OTHER 
UNITS. 


SESE URU REN Ue oe cake os oa aeaeEnd 


8 Be ck ty ee ck a he eR me a hh a od a ot ot a td nd st) 3h od 2 ot ot wh od 2 
St at St oes a 4 4 2 4) 1 SB SB St SB St os St St Sh SH tS Sh SB tS ts SY) Sh 2 Sh SS SY SH st SI Sh SS Hh OY 


864 
ss local 
ATA_SAVE : bitvector (8, 'STORES ALL af ATA BITS ON READS AND WRITES 
869 DAT_PAT; iDATA PATTERN 
871 CLR 3 
872 RLER = he: 'SET THE ATA BIT 
= ° 
5% ATA’ SAVE = .MLAS; 'READ THE ATTN REGISTER 
876 if .ATA_SAVE {.ML_DUT] IS_NOT_SET 'SEE IF THIS DRIVES ATA BIT IS SET 
ies pear (51, ASYNC R) ‘ERROR AND EXIT_TST IF NOT SET 
880 PRINTB (FOR PMT WRD. 18, PHR_1, WRD_11, FNC_8); 
881 EXIT_TST; 
os end;~ 
884 if .ATTN IS_NOT_SET 'SEE IF THE ATTN BIT IS SET 
PH then 





begin 








H 5 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 280 | 
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$opec=1980 09:51:22 PArMEALEDOLSMLS. BL 1-2 C69) 


ERRDF ( 'ERROR AND EXIT_TST IF NOT SET 
PRINTB Fives sare "REG Peo Mio. 16, PHR_1, WRD_11, FNC_8); 
EXIT TST; 





MLCS1 = NOOP; 'TRY TO CLEAR THE ATA BIT WITH NOOP FUNC 
if .ATTN IS_SET 'SEE IF ATA GOT CLEARED 
then 


n 
E ZERROR AND EXIT_ TST IF SET 
Prine oR PAT. we mie bur_2, WRD_11, FNC_2, WRD_19); 
end; 


ATA_SAVE = .MLAS; 'READ THE ATTENTION REGISTER 

i f-ATA_SAVE C.ML_DUT] IS_SET 'SEE IF THE ATA REG GOT CLEARED BY NO-OP 
n 

PeRor (58, ASYNC 

PRINTS (FIV_FMT, 

end; 


; R); 
uD 15, PHR_2, WRD_11, FNC_2, WRD_19); 


BGNSLB; 
MLER = ONE; 'SET THE ATA BIT 
ATA-SAVE' © ‘CLEAR ATA_SAVE 
SAVE iA ypu = ONE; iSET ATA eave FOR THIS DRIVE 
magne 'TRY TO CLEAR THE ATA BY WRITING TO IT. 


ale 1s. SET !SEE IF THE ATA GOT CLEARED 


in 
ERIOF (56 ‘ERROR IF NOT CLEARED 


R); 
PrinTe <PiviPat, UD uD 1s PHR_2. WRD_11, WRD_17, REG_5): 
ENDSUB: 
MLER = ONE 'SET THE ATA BIT 
MLER = oERa: ‘ 
DAT_PAT = ONE: 'DATA PATTERN OF ONE IN FIELD OF ZEROES 
iner penta set from 0 to 7 do 'REPEAT LOOP 8 TIMES 


: f ATA SEL neq -ML_DUT !SKIP IF ATA_SEL EQLS THIS DRIVE NO. 


ce me ek ee ed me gy ae wd wed acd ce wd wed ee we ad ed ak wed ed wed ed ed ad wed ad ed ed ed gg ed nd nd ed ed nd td we Bh 0d ed 02g ot od = 2 = 2 8 ed 
ee ee ce ee ce ed ed ce ed eh ee ee ee ee ce ceed ce ee cee ee ee ee ee ee ceed ee ee ee ceed ee ee ee a ee ch ee ce ce cd ce ed ce ed ce eh ed ce ce ced ed ed ed eed ee 


RESEIRA RAISE NOOR UNS ca aos CR eee ROR ONT e SESS RRR SSS 


Be Be Be Ge Fe Se Ge Ge Ge Se Ge Be Ge Ge Se Ge Ge Be Se Ge Bs Ge Ge Se Fe Ge Be Fe Be Ge Se Be Ge Ge Se Ge Se Se Ge Ge Ge Se Se Gs Ge Ge Se Se Se Ge Ge Se 


Say wear Sifar acer aN #e Se 


in 
pegs = yea PAT: ‘WRITE DAT PAT TO ATA REGISTER 
ATA_SA TMLAS; iREAD ATA REG BACK 











5 
MACRO M1113 22=DEC-80 12:16 PAGE Se, 


CODING SECTION 


1 


5Bpec=1980 09:81:22 PAT EALEOL LS. BLL <2 (69) 


—_~ C.ML_DUT] IS_NOT_SET !SEE IF THIS DRIVE ATA IS CLEARED 


in 
PROF (55 ASYNC, R); 1ERROR AND EXIT LOOP IF CLEARED 
(Six FMT, WRD 5 PHR_6, weo_iin WRD_17, REG. 5. PHR_7); 


MT-7, .DAT_PATS; 


PAT = .DAT_PAT“ONE; SHIFT DAT_PAT AND REPEAT 


ed Ss Ss Wh tt Us -_ 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 


SEER ESSE SIRI SIBLE SESE 


TEER ERER EDS 
PERERELE 


| 


eh ce cee ae cee ce cee ce cee ce ce gd cee ce ee cee cee ce ae me we me a ed a we ce eh ed et ce ce ce ed ed ed ed nd od od 0d ed ed 
eS OE OLE S  _ Oeee ee e  L OL OLe S . el ee Eee 








% 
2 
: 


BIS8 
my LS 

BIC R3 

BICB 40s: #7 , AL. .REG+40 

BIS8 =_- R3. AML. RE 

MOV #1, Wa .RE e 

CLR art .REG*+EO : 

MOV @ML .REG+70,-(SP) : *, ATA. SAVE 
MOV ML .DUT,RI1 : 

ASR RI 

ASR R1 

ASR R1 

MOV SP .RO 3; ATA.SAVE,* 
ADD RO.R1 

MOV R1,-(SP) 

MOV me -(SP) 

BIC (SP) 

MOV #1,-(SPS 

CLR -(§P) 

JSR PC BLSGT2 

ADD #10,SP 

TST RO 

BNE 1$ 


55 
tes 





£3 








CZMLABO ML-11 ey 


Cc 
MISCELLANEOUS CODING SECTION 


000014 
100000 150672 1S: 





sML4 


GOP LreLLLLeLLiirt etre CLeELLLAr Sa EC EELL LE 


TEST MACRO M1113 22-DEC-80 12:16 PAGE 482° 


2 
3.89293 
% 


SERSS 


& 
Y 
% 


#F IV.FAT,-(SP) 
-(SP) 


#16,SP 

128 

al .REG+70, (SP) 
DUT .R1 


e e 


R1 


* ,ATA. SAVE 


———_—__—_—— 


SEQ 0269 
55-Dec-1980 09:91:22 PA: 


6041 


SSS 


S58 


3 


ae 
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MISCELLANEOUS CODING SECTION 





} m4 
} ° 

i 

1 ASR RT 

} MOV { 

: ad RO. 

. MOV R1-(SP) 

} POV a =(SP) 
. BIC (SP) 
} MOV #1,-(SP5 

: CLR 0 =(§P) 

’ JSR PC .BLSGT2 

: aD 6s #9, SP 

: DEC ORO 

: BNE 

} TRAP 

: SWORD 

’ “WORD  ASYNC 

: “UORD DUPER 

: MOV #WRD. 19, -(SP) 
: MOV ENC. 2.°(SP) 
’ MOV MRD. 11,-(SP) 
: MOY SPAR. 2 ,=(5P) 
: MOV WD. 15,-(SP) 
: MOV #F IV.FMT.-(SP) 
: MOV #6,-(SP) 

; MOV SP-RO 

: TRAP 16 

’ ADD —s- #16, SP 

ig 6$: TRAP 2 

1 150364 MOV #1, QML .REG+60 
: CLR a. REG+60 

: CLR (SP 

: MOV «ML. DUT RI 

: ASR RT 

: ASR RT 

: ASR sR 

’ MOV —-SP.RO 

ADD RO-RI 

: MOV —sR1.=(SP) 

: OV a -(SP) 
: BIC (SP) 
: POV #1, ~(SP5 

: MOV (SP) ,=(SP) 

: JR BE 

1 150316 Mov 10(SP) Oi, -REG*70 
‘ TST ga .REG* 

: BPL 

} TRAP 55 

’ ‘WORD 66 

: “WORD  ASYNC 

: “WORD 

: MOVs PREG. 5, ~(SP) 
, MOV #WRD.17.- (SP) 
' MOV #WRD.11.=(SP) 


ATA. SAVE ,* 


ATA. SAVE 


; ATA.SAVE,* 


; ATA.SAVE,* 





SEQ 0270 


B-pec=1980 O9:S1:22 Pare 
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MISCELLANEOUS CODING SECTION SEQ 0271 
i pa SBS IBES BRS) ee 
“ 4 ° . . rs * 
1211 7 MOV #PHR.2.=(SP) 

1 i$ 7 MOV #uRD.15,-(SP) 

1 16 i MOV &#F IV.FMT,-(SP) 

1211 MOV #6,~(SP) 

i 1 MOV sp .RO : SP.* 

1 1 ADD #16,SP ; 6081 

| es | of 

o O's 

1 ROR e : 

1 BLO 

j 8s: TRAP : 608 

4 150202 MOV #1, @ .REG+60 e BUSS. 

1 ogee 3] CLR am .REG+60 : C086 

m Be pater me 
s = L092 

. 1 9S: oe an 3 ATA.SEL,* S055, 

j 1501 MOV QML .REG*+70 : DAT.PAT,* 5098 

1 6 1501 MOV Sa REGSTO, (SP) + *, ATA. SAVE 5095 

} 150514 mov n -DUT,R1 : 6101 

: ASR OT 

1 MOV SP.RO : ATA.SAVE,* 

1 ADD R1 

12140 063 MOV R1,-(SP) 

12141 150476 MOV nt (SP) 

1 A 3 4 BIC (SP) 

ie 7 mK fig 

iste Be seis ie Gia? 

Sie im «= 

‘ 3 3 TRAP § : 6104 

i g “WORD  ASYNC 

7 3 7516 iv SOR, =(SP) ; 6105 

1 2 0510 MOV #REG.5.~(SP) 

j MOV MRD. 17, -(SP) 

1 1 MOV #RD.11.-(SP) 

1 RW oPIR.6 =(S$P) 

1 v2 MOV #uRD.15,-(SP) 

q 100 MOV #SIX_ FAT .~(SP) 

: $4 mov ‘ ; SP,* 

1giee on chat: ve 
e ® 

1 oO MOV #FAT.7,-(SP) : ley 

12165 podoes MOV #2,~(SP) 





5 





| 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 285 


Ic 
MISCELLANEOUS CODING SECTION SEQ 0272 





1 IMLS -1980 09:26:31 
: : asec t+ + Oost iae 
4 22¢ MOV RO ; SP,* 

i ; TRAP 4 

1 45. 000024 ADD SP : 

1 % 5. BR 11$ 

1 10$: ASL 3 DAT.PAT 

1 y%, INC 3 ATA.SEL 

1 “ak 000007 CHP a7 3 ATA.SEL,* 

4 BLE 3 

1 M334 11$: TRAP 6 3 

1 ROR RO 

1 % BLO 8S 

1 v2 128: TST (SP)+ 3 

: RTS PC 

1 : Routine Size: words 

. : Maximum stack PA per invocation: 16 words 

12191 

12195 

15300 767 176640 1s JsR_pCST19 6115 
1 SO tees : TRAP 66" : 

1 qos ao |OOSS 

. 000207 RTS PC 

j 3 Routine Size: 6 words 

: 2 3; Maximum stack depth per invocation: 0 words 

4 

12214 ; 6117 !<BLF/PAGE> 


5 
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MISCELLANEOUS CODING SECTION SEQ 0273 



















12216 m4 ToPs-20 8 Bliss- y2(212) 
$3 $b ec =1380 9:54.32 18 eee i709 
1 : : 6118! 
12220 : 119} 
15552 : ei ah 
1 : 1o2 144 
i 3 ¢1 i TEST NUMBER: TST 20 
1 226 ; 61 TEST NAME: | SEARCH FUNCTION TEST 
Pa P-} 4 
\geee 3 1 : TEST DESCRIPTION: 
‘Se 3 3 
iss 3 ¢! : TEST THE SEARCH FUNCTION BY: 
12232 ; 6131: 1. DOING A SEARCH FUNCTION AT 
12233 ; 6132 ARRAY W® TEST GO 
122% : 6133 ERROR BITS AND ATIN FOR 
1228 : 61 4 SETTING/NOT SETTING. 
12237 ; 6136 ! ||| 2. DOING SEARCH FUNCTIONS AT ALL 
12238 ; 6137 | ||.” PRESENT ARRAYS® AND TEST ATTN 
: 3 2 : Ly SET 
1 : 6140 § — | 3. DOING SEARCH FUNCTIONS AT ALL 
1 : 6141 | NOT PRESENT ARRAYS’ AND TEST 
1 : g14g i ATTN CLEARED. 
1 : 6143 
12245 ; 6144 i— 
ei BB 
1 : e109 sipx  cinves; 
1 93 6148 MLCS1 = SEARCH; 'DO A SEARCH FUNCTION 
12251 : 6150 it f 60 1S_ 'SEE IF GO IS SET 
1 3 6151 
4 3 S136 
1 : 61 9 , DUMPER) ‘ERROR IF NOT SET 
12255 ; 6154 re iv_ PMT “WRD_1, Pir 2, WRD_11, FNC_10, WRD_19); 
1 : 6155 
4 $ O38 ‘ 
1 : 6157 if .ILF-IS_sET _*- 'SEE IF ILF IS SET 
7 : 6198 then; : 
1 3 615 
12261 : 6160 (57, ASYNC, DUMPER): ‘ERROR IF SET 
i 3 6161 f PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_11, FNC_11, FNC_10, WRD_19); 
j : 61 ; . 
12265 : 6164 if .ATTN IS_NOT_SET 'SEE IF ATTN IS SET 
1 : 6165 then _— ae 
1 : 6167.——s«é*CE: (59, ASYNC, DUMPER) ‘ERROR IF NOT SET 
1 : 6168 PRINTS (FIV_FMT, WRD_16, Pur. 1, RD_ 12, FNC_10, WRD_19); 
12270 ; 6169 end 


ek eh ak ed ad od 
WDONAULSWN=—S 


Be Se Fe Ge Ge Se Ge Ge Ge Ge So Se Ge Se Ge Ge Se Be Ge Ge Ge Ge Se Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge Se Se Ge Se Ge Se Ge 








eh ab ab ab a a td a dh 8 a ot 


SSELEALATLSISIVSARANIS 


DRAAAAAAAAAAAAAAAAAAAM 


6191 


else 





MACRO M1113 22=DEC-80 12:16 PAGE 857° 


BE 1800 OB:S1:8s | Praca Psat bat. S17 70 


begin 
iner ARR SEL from 0 to .LST_ARR by .ARR_INC do 'DO SEARCH AT ALL PRESENT ARRAYS 
CLR_MBU 
= -ARR SEL; ‘LOAD DSA REG WITH ARR_SEL 
MLCS1 = SEARCH; ‘DO A SEARCH FUNCTION 
if .OPI IS_SET 'READ ATTN 
then in 
Pear (60, ASYNC, DUMPER); ‘ERROR IF NOT SET 
PRINTS (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_10, WRD_19); 
PRINTS (FMT—9, .ARR_SEL); 


ENDSUB; 
end; 


Zs -OP_NUMLARR |ss %0°000017" 


incr ARR_SEL from .LST_ARR + .ARR_INC to pt A 
'DO A SEARCH AT 


'SEE IF LSS 17 ARRAYS ARE PRESENT 


NC do 
MLL NOT PRESENT 


in \ARRAYS IF LSS 17 
CLR_MBUS; 
= .ARR_SEL: iLOAD DSA REG WITH ARR_SEL 
MLCS1 = SEARCH; DO A SEARCH FUNCTION 


if .OPI IS_NOT_SET 
then OT. 


baie 
E (61, ASYNC, DUMPER 
PRINTB (FIV_FMT, WRD 4, 
PRINTB (FMT~9, .ARR SEL): 


'SEE IF OPI IS SET 


); ‘ie IN SET 
PHR_1, WRD_1 INC 10, “RD _19); 





SEQ 0274 











$T20: 


ow 
one 


p2oe 
Sin 


CeTLS TLE tt cea ceeeeirrst bet 
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e*eeees 
abot 
oO 
. 
¢ 
g 
— 


SSTERR 
¥, BL= 
oe 
t 
c 


pe ie 
§ 


i 


a5 
¢ 
g 


oat .REG+50 


a 
a 


615. 
61 
61 


6161 


615 
6164 


616 


61 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 












12580 sML4 
1 o¢ Py 
1 a S85 
12386 
a: pee 
47. 
af: 
1555 
1297) 
1g35% 000016 
1¢993 
; +i, ears 3$: 
: fue 145746 
12391 
123% 4$: 
125% 147364 
15e4 
: 147346 
} ‘ 147 
; 1ap8e5 
E 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
| sit 
1 
1 000022 
: 5$: 
1 
1 
} 6$: 
t 145552 000017 
1 145 
1 14 268 
1 145546 





zesseggrEsdaaaZ 


@owow 
a 
68° 


SEERGE GREG GE GUILE GUILE ERE 


MACRO M1113 22=DEC-80 12:16 PAGE Ba0° 


GRIZCRS 


28 


2zGFR 
SOSAURR 


SRASSWTCRI 
a 


3% 
3 
be 


r 
74) 
=~ 


33 
. 
» 
—s 


ce 
Cie 


; ARR.SEL,* 


Bee 


-19 
-19 


SEQ 0276 


80 09:91:22 





PA: 


6185 


618 


6186 


61 


6191 
6194 








ee cD ced ed ed ad ced ed ced eed ed ad ed ed ceed ed ed ed ed ed nd ed ced aed nd ed ed ced td ed ed ed ed nd ed etd ed = 20 ad ed 


Bee aa Naa SANS 


2B 
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BR sbs 
gs 


ooo 
aa 
68° 


BLE 
RTS 


3 Routine Size: 
3: Maximum stack depth 





ESTEE EeeeeL Leer otk 


words 
per invocation: 





SEQ 0277 


33-Dec-1980 09:51:22 


; ARR.SEL,* 
‘ 
3 SP,* 
3 ARR.SEL,* 620 
. SP,* 
6204 
* ARR. SEL 6194 
ARR.SEL,* 
611 





F 6 
CZMLABO alt bos OGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 291 
ml ¢ CODING SECTION SEQ 0278 


ee Boer oe0 Oosstiae pats 
767 177050 ." JSR PC,$T20 : 621 
TRAP 
ROR 
BLO 1 
RTS PC 





3; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


ce ed ce ed ed ed ed ed nd ed ed ed ced eed 


3 6216 !<BLF/PAGE> 


11 LOGIC TEST 
CODING SECTION 


a 
Sete 


LALA 


RON 


+? 


ROK 


+4044 
Aees 
Ae 


DR XE 


x 


KORO 
OO OC 


mA 
r’¢ 


Wr 


AAU 


é 


1 
5 & wn 
Ws Gat 


+, 


LYK 
= 
Me 


44% Ss" 
PW 
bb 


AYU 


La Uk Us Un Ur Us UU 


{SSSVSEAKUN ALS Se 


ay 


Ok ek et me as ae a ed ed aed ed ay a ad ed ed wed wd nd ed wd nk td ed wd ag wt 0 9d ed ed 8 td 0d Od od od ow ad od od oe oe oe = © 2 Lt 


ets! 





1 
BGNTST; 
144 


TEST NUMBER: TST 21 


i TEST DESCRIPTION: 
TES 


CLR : 
mcSi : *ho_IN_PRE: 
if .GO IS_SET 

then 


PRADF_ (62 era oe 


i TEST NAME: READ IN PRESET TEST 


MACRO M1113 22=-DEC-80 12:16 PAGE $52° 


SIIB BH SLL 


T THE READ IN PRESET FUNCTION BY: 


1. PERFORMING A_READ-IN-PRESET FUNCTION AND TESTING GO, ERROR BITS 
AND VV FOR SET / NOT SET. 


!DO A READ IN PRESET FUNCTION 
!SEE IF GO IS NOT SET 


!ERROR IF SET 


PRINTB “iv FMT, WRD_1 PER 2, WRD_11, FNC_11, WRD_19); 


if .ILF IS_SET 
then 


n 
E (63, ASYNC, DUMPER); 
PRINTB (Fiv_FMT, WRD_3, PHR_S, 


if .OPI IS_SET 
then 
n 
ERADE (64, ASYNC, DUMPER): 
PRINTB (Fiv_FMT, WRO_4, PHR_S. 


if .W IS_NOT_SET 
then ae 


!SEE IF ILF IS NOT SET 


{ERROR IF SET 


WRD_11, FNC_11, WRD_19); 


!SEE IF OPI IS NOT SET 


!ERROR IF SET 


WRD_11, FNC_11, WRD_19); 


'SEE IF VW IS SET 


in 
befor (65, ASYNC, R); ‘ERROR IF NOT SET 
PRINTB (Fiv_FMT, we 18. PHR_1, WRD_11. FNC_11, WRD_19); 
ENDTST: 





| 
DE ee | 








| 
| 
| 
SEQ 0280 | 


Bopec-1980 O9:e1:22 PAs 


% % 
7 “a =~ 3 
58558 BSigg® BBG 
Hetty ss, gaa gS 


4 eit 4 RRA eS Same tate 
Sate wegen ines oilne 
LPRSUNSELLL TTT ESTELLE LTT Taree er eT 


6 
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3ML4 





LOGIC TEST 
CODING SECTION 


© a0 a: yh SAP me ge x: 
SDD OK ED ED G 





AAA AA AIIAIN NAN Ae 


Nee NNN 


C7ALABO ML-11 
al 


33-pec=1980 09:31:22 


‘ ‘ | 
for ee 
nw So 
“ 7 ° = 2 % 
r nr PoC F. E 
~ 8 ° @ee@~wt is = = 
- i, a% WM rcenrk om 8 g& & e. 
Oo >I + 8 ‘~) 
f SaaecSensebeesisense: 2% beens oF 
: oe ee i 
S - BEBEESSeESSSappREEEEES: 25 SRE 
oe. 58% 
= ete = cere 


ba 
w 
& N 
- - 
By 
~ ~ ~ 
oe c 
a SS 
pe 
= 
co 
g 


_ 888 
== 





CZMLABO 
he 
ort 
5651 
06 5¢ 
2653 

4 
75 
78 





-—__—_—_--- 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 395 
RISCELLANEQUS CODING SECTION 


1 
1 
Be ; 6265 !<BLF/PAGE> 


Sa 
SEQ 0282 














& 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE S06 
RIStELLANEQUS CODING SECTION SEQ 0283 












12691 ;ML4 —Dec-1 2:26:31 ae A Bliss- 7 ey! 
: c 3 $ 
126 5 ' 
! 596 : BGNTST: 
12698 : 16 
1 599 ; | TEST NUMBER: TST 22 
1 : TEST NAME: ILLEGAL FUNCTION TEST 
i : TEST DESCRIPTION: 
1 : i TEST THE DETECTION OF ILLEGAL 
i 3 FUNCTIONS WRITTEN TO MLCS 
12708 : i @ 
12709 ; i WRITING ALL POSSIBLE ILLEGAL 
12710 : i FUNCTIONS TO MLCS1. 
1 1; é TEST GO AND ERROR BITS CLEARED. 
1 g : i 
12714 ; 6286 
12715 ; : local 
1 8 : : BAD_BITS, ‘STORES A COUNT TO GENERATE BAD FUNCTIONS 
! ale BS BAD_FUNC: 'STORES GENERATED BAD FUNCTION 
12719 ; 5291 BAD_BITS = ZEROES; ICLEAR BAD BITS 
1 : $093 incr CNT_1 from 0 to 2 do (REPEAT LOOP 3 TIMES 
e 4. n 
1 : : BITS = .BAD_BITS + %o'2': 'ADD 2 TO BAD_BITS 
1 : 625 iner ONT _2 from %o'1" to %0'71" by %0'10" do 'REPEAT LOOP GENERATING °GOOD’ FUNCTIONS 
° 4. n 
1 5 6295 4 
1 : é CLRABUS: | 
i : 43 + .BAD_BITS: !ADD BAD BITS TO CNT 2 GENERATING BAD FUNCTIONS 
1 : 6308 FIRST T puxgden en: SET UP K FIRST BLOCR XF 
1 : 6308 MLCS1 pba MLCS1 WITH TWO an FUNCTIONS 
1 : if .ILF IS_SET 'SEE IF ILF IS SET 
q Zs then 
’ 3 begin 
1 : if .GO IS_SET ‘IF ILF IS SET THEN SEE IF GO IS SET 
: 3 1? then ‘ 
Py n 
1 : 1g (66, ASYNC, DUMPER): ‘ERROR IF GO SET WITH BAD FUNCTION 
1 ‘ 1 PRINTB (FIV_FMT, WRD_1, PHR_2. WRD_11, FNC_12, WRD_19); 
i : 14 INTB (FMT~12,° .BAD-FUNC); 
1 : 631 rt 
1 3 $319 end 





MACRO M1113 22=DEC-80 12:16 PAGE b97 


z 
iS 
uz 
88 
5 

: 
c 





4.BL1.2 (72) 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE 
DON'T CAUSE ILF 


); 


3 

2 

ON 
BAD : 
* BAD 
«, 
BAD .B 
CNT.2 
*, 
BAD. 


3 


FUNCT 
WRD_1 


38366-1960 09:31: 
2. 

‘SEE IF OPI IS SET 

!ERROR IF SET 


5, WRD_12, FNC_12, WRD_19); 


1. WRD_11, FNC 


» PHR 
); 
» PAR 


fon np 
SWesln Seer eorDeseane 


FUNC), 


RY Soa 


e 
e 


DUMPER) 
 WRD_3 
BAD-F 

ASYNC, DUMPER); 
» WRD_4 
BAD-) 


iv. 
iv. 


FMT 
12, . 
= 
ADD 
MOV 
MOV 
ADD 
~ 
mov 
Ic 
1c 
oe 
isn 
aire 
TRAP 
WORD 
WORD 


PROF. (68 


PRINTS (F 
PRINTB (F 
1$ 
2s 
3$ 


in 
PRADF 
PRINTB ( 
PRINTB ( 
end; 
if .OPI IS_SET 
then 
end 
ENDSUB; 
end; 
146330 
146312 
46306 


Stee RRGRRRRS nein SUBSR ERI REREREREBE S 


POPE EOF BF FEF FCC] EF FF FFF FFF EF FF CEC CECE CE CCC CC CC CSCC SEES 














T 
PA: 


31 
22 


33 -pec=1980 O9:21: 


:16 PAGE 298 


2:-(36) 
2:-(36) 
+=(SP) 
o=(SP) 
ya's? 

fr .=(SP) 
2.-($P) 
9.-(SP) 
¢.~(SP) 
$63) 
12) 
$ext) 

o~ (SP) 
ao 






SED 
a Oe afbeverees8. 


Sooty Ss He 
trrcsea lo aWleeere 


e.. 3 23 


MACRO M1113 22=-DEC-80 12 






oO 
wa - PS ENS : DOO L202 0E Nn 
3 FANN ETE he Fe EY 
Ba 865555555 a HOBOS EUS EEEEEEE SRS iNetes 
G3 
=  SRRSSERBARSMENA ARONA TERS EEK RENE Te NRK AIYSNRY SNC RAY 
J gat oe oat oat oat cat cat cat amt Oat out oat Cal mt Oat at Oat Cat at a a a Pe nee 
SIFT areas srerererrerirererrecteeerseee 





MAIAICUAL 





. » t*. f*. ep tt 1} 
Y v? Y J 


RAR NNN RAN CUCU UU INU U UU UU AUN UU 


CZMLABO 
al 





ase + ad 






+” 






+” 


+4 


wey 


RFE PER eR as 


+ 


+e 4% 44 


00 O8 te £: + 
ais 





+4 





ee ee ee ee eee 
A 


OGIC TES 
ODING SE 








TION : SEQ 0286 





ML4 -1980 09:26:31 
3 Fs aoa s+ Oost iae PA: 
MOY #2,-(SP) 
OV ated 3; SP,* 
TRAP 4 
ADD rt all 3 
7$: TRAP 6 : 
RoR RO 
BLO 3$ 
ADD #10 : *,CNT.2 
CMP po 3: CNT.2,* 
ore 1 CNT.1 
CHP R142 : CNT.1,* 
BGT 
JP $ 
8$: RTS PC 3 


3; Routine Size: 141 words 
3 Maximum stack depth per invocation: 15 words 


T22:: 
177342 1$: JSR PC,$T22 3 
TRAP 66 
RO 
BLO 1$ 
RTS PC 


: Routine Size: 6 words 
+ Maximum stack depth per invocation: 0 words 





! <BLF /PAGE> 


7 
C TEST MACRO M1113 22-DEC-80 12:16 PAGE B00 
NG SECTION SEQ 0287 


5B pc=1980 09:81:22 PAT EALEOL SOLS. LI? (73) 


CZMLABO ML-11 LOGI 
MISCELLANEOUS COD! 


e 


BGNTST; 


144 
: TEST NUMBER: TST 23 





<5 


SseBers 


4 . 

1 . 

1 ° 

12912 ; 

12913 ; 

10914 : 

12915 : 

12916 : 

} mie 

1 19 ; i TEST NAME: REGISTER MODIFICATION REFUSED TEST 

1901 3 { TEST DESCRIPTION: 

12923 : ay i TEST THE DETECTION OF A 

i 926 3 REGISTER MODIFICATION REFUSED 

12926 : 7 a 

12927 : 55 1. WRITTING TO MLCS1, MLDA 

12928 ; 36 i AND MLER WHILE THE D DRIVE 

12929 : 57 | IS BUSY AND TEST 

: 930 5 3 BIT SET. 

12932 : i ALSO SEE IF THE DRIVE ASSERTED 

i 933 ; 6361 EXCEPTION BY TESTING THE TRE BIT SET. 

i 

12936 : 

$ 6365 incr os from 0 to 2 do 'REPEAT LOOP 3 TIMES 
Py nA 

4 : 7 3 

q 3 CLR 3 

1 3 9 MLCS1 = write: 'DO A WRITE FUNCTION 

1 : case SCNT from 0 to 2 of WRITE TO SELECTED REGISTERS FORCING RMR | 
Py se 

1 : 

1 : 4 (0) : 

1 ; MLCS1 = %0'000000'; 

4 : (1) : 

i O; MLDA = ONES; 

1 : (2) : 

1 : 1 MLER = ONES 

: 7 é tes; 

i 3 DELAY (FRTY_US); 

1 : if .RMR IS_NOT_SET 'SEE IF RMR GOT SET 

; 3 begin 
e n 

1 : E IF NOT SET 

1 : G PRINT. CFORPAT, “URD O1” PHR1, WRD_11, RD SDD, 





ee ed cd ed ced ced ce ed ee ed ced ced cee cee ced ed ce ce ce ce ed ccd ce ce ce ce ed ceed ce ce ec ce ed ce ed ed ed ed ed ng ed ed nd ed ed 
SF) : - fe 0 0 0 0 oa a AiO AO OD ODDO OWWOwwOHpo 3 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


sm4 






san 








7 
MACRO M1113 22=DEC-80 12:16 PAGE $01 


if .TRE IS_NOT_SET 
then 


ERDF 


PRINTB 
end; 


$T23: 


1$: 


g8 8 we 6% 38 


(117, SYNC, 
(FOR_FMT, 


JSR 
TST 


SSPRRRCHOELESIN | BREEECATEC 


#1 ,@L .REG+30 
#~1 , 2 .REG+60 
RO 


Y,R1 


33 pec=1980 09:91:22 


TOPS-20 Bliss- 
PA: <NEALE 


16 
4 


v2(212) 
-BL1.2 (73) 


!SEE IF DRIVE ASSERTED EXCEPTION BY TESTING TRE 


R); 
uD 20, PHR_1, WRD_11, WRD_21); 





CNT 


CNT ,* 


=, SSTMP2 
* ,SSTPP1 


SSTPP 
SSTMP1 


SSTMP2 











33-pec=1980 09:51:22 


7 


ok 
z 
2 
a 
; 
ON 
cs 
¥ 
& 
& 


PA: 


sML4 


$5559 : 
ai a a™ 


y gin Reo 
af ih 


145430 11$: 





ese 


12$: 


10 words 


105 words 
3; Maximum stack depth per invocation: 


3; Routine Size: 





al 









$s 







> 





~ FS BR 
: A Ale Ae 2 ae 


BOS OSOS 
z Tote 


tat) tet 4 ot ehh 








oe ad a8 ak ad ad od od a td = 








=11 LOGIC TEST 


7 
MACRO M1113 22=DEC-80 12:16 PAGE Sos 


CODING SECTION 
tl 
767 177452 1$: JSR PC,$T23 
TRAP 
ROR 
BLO 1 
RTS PC 


6404 


3; Routine Size: 


6 words 
> Maximum stack depth per invocation: 


! <BLF /PAGE> 


0 words 





7 
MACRO M1113 22-DEC-80 12:16 PAGE 504 


CZMLABO ML=11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
- 5o-pec=1980 09:21:22 PA<MEALEDOL SLC. BLI-2 (74) 





'o4 
! TEST NUMBER: TST 24 


i 
TEST NAME : initial PROM TEST 
TEST DESCRIPTION: 
TEST THE MEMORY ARRAYS’ PROM 
TIMING AND CONTROL LOGIC FOR 
INITIAL PROM READS BY: 


i 
i 
i 
i 
i 
i 
i 
i 
1. READING 14 PROM LOCATIONS 
i 
i 
i 
i 
i 
i 
i 
= 


nasa 
n 
—_ 
Se 


ELELETELE 


OWONAUL WIM 


_— 


AND TESTING FOR: 


A. CHECK SUM ERRORS AT 
EACH ROW COLUMN ADRS 


Bee Be Be Ge Fo Se Se Be Ge Ge Be Be Ge Ge Ge Ge Be Se Ge Be Ge Ge Se Fe Fe Se Se Ge Ge Fe Se Ge Ge Se Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Se Se Ge Se Ge Ge 


VSSREGKROSASSSIS HUM BNVRRRUVLUI sa vanz creo SeVe@Rreccs 


8. OF EACH PROM BIT SET 
se > GTR 14. 
64 
g J local SET_CNI tor (10, byte], ‘COUNTS EACH NIBBLE OFFSET 
: vector e 
64 ROW_ORED_COL : bitvector C ches iSAVES ROW DATA OR'ED WITH COL DATA 
64 R_C’SAV = bitvector C16), 'TEMP LOCATION FOR ROW COL DATA 
6435 ‘ 'PROM ADDRESS 
64 CHK_SUM, 'CHECK SUM DATA 
CHK_SUM_ERR, ' CHECK 
64 BAD CNT, 'COUNTS BAD NIBBLES 
64 14 i ‘COUNTS BAD NIBBLE POSITION EQL 14 
6440 poo0_FG, ‘DROP UNIT FLAG 
! 6441 ERR_FLG: ‘ERROR FLAG 
1 reg CLR 3 
1 6444 SoD0 fre = ZERO; 
6445 DIS = : 'SET PROM DISABLE MODE 
CHK_ = ZEROES; 
644 
1 G48 incr CNT from 0 to of 'CLEAR OFFSET COUNTS 
| S669 OFF_SET_CNT C.CNTJ = ZEROES: 
1 $484 incr ADRS_CNT from 0 to 14 do 'READ PROM DATA FROM 15 ARRAY WORDS 
1 645 ORED co. =  SBEROES: 'CLEAR ROW ORED COL SAVE LOCATION 
; G36 PROM_ADRS = S_CNT: iGET COPY OF ADRS_CNT 
1 6456 


incr TWICE from 0 to 1 do 'READ ROW AND COL DATA FOR THIS ARRAY WORD 





7 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE os 


MISCELLANEOUS CODING SECTION SEQ 0292 
zmL4 -1 :24:31  TOPS-20 BLiss-16 V2(212) 
: Be Fee=1980 Oo:Sti2e | PAC SNEALESOL Sm See 2 <7) 
1 6457 begin 
64 _NIB_CNT = ZEROES; 
1 645 ERR-FLG = ZERO: 
MLPK = ;PROM ADRS; 'LOADING MLPA INITIATES PROM READ 
DELAY (ONE 
oe ep 'GET THE ROW OR COL DATA 
1 incr BIT_CNT from 0 to 9 do 'COUNT NUMBER BITS SET IN <9:0> 
1 if .R_C_SAV C.BIT_CNT] IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 
CHK_SUM = .R_C_SAV<10, 3>; 'GET THE CHECK SUM BITS 


if .R_C_SAV [13] IS_SET then CHK_SUM = .CHK_SUM + 1; !ADD IN BIT 13 
if .R_C_SAV [14] IS_SET then CHK_SUM = .CHK_SUM + 1; !ADD IN BIT 14 


SaR USS ERRERERES 


1 
1 
1 
1 
1 647% if .R_C_SAV [15] IS_SET then CHK_SUM = .CHK_SUM +1;  'ADD IN BIT 15 
6476 if .R_C_SAV (15) IS_SET 'IS BIT 15 SET 
1 64 then 
; begin 
3 if .BAD_NIB_CNT Lss .CHK_SUM then ERR_FLG = ONE; § !SET ERROR FLG IF CHECK SUM ERROR 
31 
else 
. begin 
1 if .BAD_NIB_CNT neq .CHK_SUM then ERR_FLG = ONE: | !SET ERROR FLG IF CHECK SUM ERROR 
. end; 
1 if -ERR_FLG I1S_SET WAS THERE A CHECK SUM ERROR 
begin 'REPORT INTERMEDIATE ERROR IF YES 
E (70, INTER, PUMPER) 
PRINTB (SIX_FMT, FNC_21 10, WRD_12, WRD_45, WRD_35, FNC_6): 
1 PRINIB (PMTH10. COR a a -R7C_SAV); 


DODU_FLG = one: 
end 


ROW ORED COL = (-ROW-ORED COL) oF C_SAV); _ !OR ROW AND COLUMN DATA 
PRORLADRS = ( PROM PROPLADRS) Sr (%0" 2000 °F 5 'GET COLUMN DATA 


—— 


BELELRASLESESKRRATLSASISARANASSELSALERIS SSVEALUN 


incr index from 0 to 9 do !GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS 
if .ROW_ORED_COL C. index] IS_SET then OFF _SET_CNT C.index] = .OFF_SET_CNT C.index] + 1; 


or 
ra 


end; 


ms eg on et a ad ed ed wd nd eh od td nh od ot = 02“» ot ot SS Sh = Lg Fh SS 3 2 SS Ss SS) 2 SS) = SS) 2 SS) 2 SS 2 St ot SS 2 St St SY SY 


Sosuses 


Be Se Ge Se Ge Be Se Ge Ge Se Ge Se Se Ge Se Ge Se Ge Bo Fe Be Ge Be Be Fe Ge Se Ge Fe Be Ge Ge Fe Ge Se Ge Be Ge Se Se Se Se Be Se Se Ge Se Ge Se Ge Be Se 


Bee SReeeS an enaRnece satan Renee us 













7 
MACRO M1113 22=-DEC-80 12:16 PAGE So 
SEQ 0293 






| 
| 
fe 3 pee~1980 09:31:22 PAT SNEMLESOL SL. BLL -> (7%) | 
CNT_14_BAD = ZEROES; | 
incr CNT from 0 to 9 do !COUNT HOW MANY OFFSET COUNTS GEQ 14 | 
if .OFF_SET_CNT C.CNT] geq 14 then CNT_14_BAD = .CNT_14_BAD ¢ 1; | 
if .CNT_16_BAD neq ZERO 'WAS ANY OFF_SET COUNTS GTR ZERO | 
ERO (71, ARR_DAT, DUMPER); 'ERROR IF YES 
if -CNT_16BAD eql 10 !WERE ALL 10 NIBBLE OFFSETS GEQ 14 
3 a al (SIXFAT, WRD_S5, WRD_S4, WRD_46, WD 51, WRO.42- WRD LO) pgEPROR IF VES 
PRINTS (FOR_FMT, WRD_46, WRD_47, WRD_42, WRD_40); 'PRINT MESSAGE 
incr CNT from 0 to 9 do 'FIND OFFSETS GEQ 14 


if .OFF_SET_CNT C.CNTJ geq 14 then PRINTS (FMT_13, .CNT, (.OFF_SET_CNT C.CNTJ)): 


—_ !PRINT NIBBLE POSITION AND COUNT 
DODU_FLG = ONE; 
end; 


if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG SET 


then 
sa 
(.ML_LUN) ; 
DOCLN; 





ENDTST; 





5: 


| 








7 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 4o7 
MISCELLANEOUS CODING SECTION SEQ 0294 









1326 3ML4 a geen 224: 
: 6 3 5 =1980 $3554 132 PA: 
V6 BsS700 152777 000060 145366 BIB — #40,9L .REGSI20 Sion: Inte ton 644 
ieee ¢ taf 012701 000016 1s: OY 6,R1 ; at unin : 
13270 065716 602 ADD «RAR : (NT»® 
15271 065720 1056 cLAB. CCR) 
13272 0637e2 00520¢ INC 3 CNT 
1 be 7S O657¢ Ware 000011 CMP 11 3 CNT,* 
1357S O65755 00506 tk OR ; ADRS. CNT 
15276 065754 005066 900010 28: CLR ~=—s:10¢SP) 3 ROW. ORED. COL 
13277 0465740 010566 MOV .6(SP) : ADRS. CNT .PROM. ADRS 
13278 065764 00500 CLR sR : TWICE 
13a feerae funyeg Oooo : pacng-on 

be -! ' ey. JU- + e o 
13281 06575) aes 09006 145272 MOV «6 (SP) ,@ML.REG+100 ? PROM.ADRS,« 
13282 065762 0127¢ MOVs #1,R1 ; *,$STMP2 
1 net Ss ¢ >/6E ve 1 4$: BEQ 7$ 
iw ' Tas p 134122 = ance 3 *, SSTPP1 
13286 ¢ 5 005066 000014 5$: CLR 14(SP) : SSTMP 
13287 066002 9053 DEC R2 3 SSTMP1 
1 4. 94600 001 ¢, ENE 5$ 
13590 6201000076 “4 i arp, 
13291 066012 017766 145366 000012 7S: MOV  @ML.REG+230,12(SP) 3 *,R.C.SAV 
13092 046020 00500- CLR Rg + BIT.CNT 
13293 0466022 01020 8$: MOV oR : BIT.CNT,* 
13¢ ‘opts: DOC ASR Ri 
13295 066 Og 00620 ASR Ri 
q PE 6h) a we 520 ASR R1 

509; M6052 7 70 , eeee a ———e ee —— = —— ee cea iialaitimieaiatianmiiiamniaiaatie —— 
fee geet Sates Do : RAC. SAV. 
4 44 ; 06000 ADD ¥ 1 
1 eee NM Ai le : MOV Ri -(SP) 
13301 046064 010266 MOV <= (SP) 3 BIT.CNT,* 
15302 046046 062716 1 BIC "i (SP) 
iene Gectss Suseeg 10! rt et al 
13305 046060 004767 135054 JSR PC, BLSGT2 
15506 Geeoes Gsz7b6 000010 W108 
1 50 0460 yi 907 00¢ ONE 
13309 046076 005266 000004 INC 4(SP) ; BAD.NIB.CNT 
13310 046100 00520. 9S INC Re BIT.CNT 
13311 046102 02022? 000011 CHP #11 ; BIT.CNT,* 
13312 066106 00: BLE es 
13313 066110 016603 000012 MOV 12(SP) ,R3 ; R.C.SAV.CHK.SUM 
15 $ gi 006208 ASR > CHK. SUM 
13316 ¢ 3128 000303 Sune Cha: Sum 
13317 046122 042703 177770 BIC #177770,R3 > *,CHK.SUM 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS 


OA abl abl abi okt at ant 
v. 
4 


isp 





wa 
al 





bembertertecien! 





einiaiaininiciniaininia 


beabget 





wie 






<. 


REF} 


-_- 





6 
4 
4 
°F: 
°F 
*7. 
48 
Moe 
9. 
or. 
°F: 
Wer 
' + 
+ 


CODING SECTION 
sML4 


118: 


128: 


INC 


SS Si a 


~O@ 
Raa 


fis be 


7 
MACRO M1113 22-DEC-80 12:16 PAGE $08 


2 13(SP) 


Gas 


= 


soeteter? 


& 


PICEA 
ae > 
bh & 


ae. 


82S> 
aaa 

ods 
cf 


eaeees 
g 


atm 
$s 
ws 
A 
g 


SEDRENTCIIT 
eS S228 8 
¢ sk. 
r g 


12(SP) , 10(SP) 
»6(SP) 


Wz 
wy 


2RR 
2 


33-p0c=1980 09:51:22 


H #,R. - AVE 


CHK . SUM 
*,R.C.SAV+1 
CHK. SUM 


; R.C.SAV41 


CHK. SUM 


BAD .NIB. CNT, CHK. SUM 


; BAD.NIB.CNT CHK. SUM 


# ERR.FLG 
ERR.FLG,® 


* ,DODU.FLG 
R.C. SAV -ROW.ORED. COL 


-PROM. 
TWICE 
TWICE ,* 


INDEX 
INDEX.* 


647 


6476 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 









nine 
= 
~ > 


i Pac tate, Dees, Pee he 
409 4e' Bes 


te en De ae 


PMMA MAMA AA AAT RA A) 
RRR IS Se 









‘einiainia 


t: 


¥ 










33 
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MACRO M1113 22=DEC-80 12:16 PAGE Soo 


SEQ 0296 
sML4 Bpec=ts 2:24:31 OPS 
. § ~1580 oot i3) PA:< 

ASR R1 
ASR RI 
MOV #10,RO 
ADD SP,RO zy ROW.ORED.COL,* 
ADD *R1 
MOV R1,-(SP) 
MOV Re ben ) é INDEX,* 
BIC gi (SP) 
MOV #1, -(SP5 
CLR -(§p) 
JSR pc BL SGT2 
ADD #i0,SP 
es 
MOV #16,R1 
ADD SP,R1 : OFF.SET.CNT,* 
ADD R2-R1 : X,® 
INCB (RI) 
19S: INC : x 650 
Lee wi > INDEX,* 
OnE M ADRS 6451 
CMP R5,#16 + ADRS.CNT,* 
ss 
20S: CLR RO : CNT.14.BAD 650 
CLR R1 : CNT 6511 
21$: MOV #16,R2 : 651 
ADD SP, + OFF.SET.CNT,* 
ADD R1 : CNT,* 
cre «(RD #16 
BLO, 2 
INC RO : CNT.14.BAD 
228: INC R1 > CNT 6511 
cmp R1,411 : CNT,* 
mF io. CNT.14.BAD 6515 
BEQ ; 
TRAP $ : 651 
-WORD 107 
SWORD  ARR.DAT 
“WORD 
oe 2 : CNT.14.BAD,* 6520 
MOV MRD.40,-(SP) : 6522 
MOV MRD. 42.-(SP) 
MOV #RO.51.-(SP) 
MOV MRD. 46.-(SP) 
MOV MRD.54.-(SP) 
MOV MRD .55.-(SP) 
MOV #SIX_ FAT .~(SP) 
MOV (SP) 






ec a a ed ced eh ce wed cd cat ce ced ed cet ccd ed cee cee wed ed ceed ed ceed ee ed wed wed ee wed ed 0d ad ed ed ed = Uw dd 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


arama 


@?, 


ERLE SG! 


AX 


<. SSSSN% 


tre 

tr. 
1471 
13078 
13476 
13479 
13480 
13484 
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zML4 
MOV ~RO 
TRAP % 
CMP (SP)+, (SP)+ 
BR 268 

23S: MOV MRD .40,-(SP) 
MOV MPD. 42,-(SP) 
MOV WURD.47,-(SP) 
MOV MRD. 46,-(SP) 
MOV #F OR. FMT, -(SP) 
MOV #5 .-(SP) 
CLR 5 

24$: MOV RS. R1 
ADD SP.R1 
ADD R2,R1 
CPB O«(RK1) #16 
BLO 
CLR =(SP) 
MOVB (R1),(SP) 
MOV -(SP) 
MOV #FAT.13,-(SP) 
MOV 7 (SPS 
MOV ~RO 
TRAP 
ADD #10,SP 

25S: INC 
Mp 1 
BLE 

26$: MOV #1.16(SP) 
ADD wis 

278: CHP g(SP) #1 
Be 
MOV mi .LUN.RO 
TRAP 
TRAP 

28S: ADD #30,SP 
RTS PC 

3; Routine Size: 304 words 

3; Maximum stack depth per invocation: 29 words 


SP,* 

CNT 

OFF .SET.CNT,* 
CNT ,* 


e 


CNT ,* 


SP,* 


3 CNT 

; CNT,*® 

* ,.DODU.FLG 
DODU.FLG,* 


ec 


SEQ 0297 


3B-pec=1980 09:51:22 PA: 


An 


AX 









mk tk at th at at ot SS 0“ = Ls 


CZALABO ML-11 
MISCELLANEOUS 


OGIC TEST 
ODING SECTION 


6545 





176634 


! <BLF /PAGE> 
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MACRO M1113 22-DEC-80 12:16 PAGE Sh 


sML4 
T24:: 
1$: JSR PC $724 
TRAP 
ROR Ro 
BLO 1 
RTS PC 


3; Routine Size: 6 words 


: Maximum stack depth per invocation: 





0 words 


5B pec 





-19 
-19 


80 09:81:22 








ee ea ee a 
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MACRO M1113 22-DEC-80 12:16 PAGE Si 


$44 

; TEST NUMBER: TST 25 

: TEST NAME: PROM OR FUNCTION TEST 
_— DESCRIPTION: 

TEST THE HARDWARE ORING OF 


THE MEMORY ARRAYS’ PROM 
ROW COLUMN DATA BY: 





T el Cm 6 ae 6 ae 6 ae 0 ae 0 ae 6 a 6 a 6 a te ee te tet tae tae tates 


BIg or saaeeES SR EEEE SECS EaCSE EEE 


READING AND STORING 128 
— ORED ROW COLUMN 


THEN IN PROM DISABLE MODE 
AND VIA_ SOFTWARE CONTROL, 
READ AND OR PROM ROW 
COLUMN DATA AND COMPARE 
AGAINST THE RESPECTIVE 
STORED HARDWARE ORED DATA. 


el 


=write: — 





S from 0 to 127 do 


PROM DIS = ONE; 


£359 incr PROM_ADRS from 0 to 127 do 





3opec=1980 09:51 22 


DAT. 
t SOFTWARE CALCULATED ae ORED DATA 
TWARE 


'SET UP _A_FIRST BLOCK XFER 
!DO A WRITE FUNCTION 


‘READ AND STORE 128 HARDWARE PROM ORED DATA _ 





'READ HARDWARE PROM ORED DATA 
CLOCK NEXT ONE OUT 


!SET PROM DISABLE MODE 
!CALCULATE 128 Sw ORED DATA & COMPARE TO Hw TABLE 


SORE eRe eoeeeeee 


— 
N 


RE 


a eee ee ee Ee ee ee Eee 





MACRO M1113 22-DEC-80 12:16 PAGE hs 


NG SECTION 


= es 
DELAY (ONE US); 
C BITS = MPD: 


WCSAVE = “H6_OR_TEL. L.PROM_ADRS): 


if (.HW_SAVE<O, 9>) nea (.SW_ORED<0, 9>) 
then 


in 

pear ¢ T R); 
ERINTE <EOR TAT” RD So, cnt 
PRINTB (FAT ee ~SW_ORED<O, 95 


DODU_FL 
end; 


end; 


if .DODU_FLG IS_SET 
then 


bar 
(.ML_LUN) ; 
DOCLN:; 


ENDTST; 
1351 ; $725: 


44164 


000001 1$: 
2s: 





R&D 
—— 
oO 
$ 


z 


. 


SAG 
oe 


“vee 


— 
* 8 
~ aaga 


w 
yz 





3opec=1980 09:31:22 PArMEALEDOL SPL. BL I<2 (75) 


'LOADING MLPA INITIATES A PROM READ 


'SAVE ROW DATA 
'ENABLE COLUMN DATA ADRS 


'SAVE COL DATA 

!CALCULATE SOFTWARE ORED 

!GET RESPECTIVE HARDWARE ORED 
!COMPARE SW & Hw ORED 

!IF NEQ THEN ERROR 


36, WRD_19, PHR_4); 
» oHd_SAVE<O, 95, (.SW_ORED<O, 9> xor .HW_SAVE<O, 9>)); 


!DROP THIS UNIT IF DODOU FLG IS_SET 


. 
On 


; DODU.FLG 6 


t+ ad 








CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


RX 


. 


perenne 


¥ 


all 


> 


aaa 


33335 34° 


ee ed ed ced cee a ce ce ceed ced ae ceed ee ced a ed ced ced et cd ce ccd cd cee ced ed ced ced ced ed ced ceed cee ed ed ccd cd ced ed ed ad ed ed ed ed ed ed ed od 2d ed od 





sML4 


3$: 


4$: 


13$: 
14$: 


GERBEASRERCRS 


Sed | 


@ 
= 
~” 


28238 
o<o 


= 


m 
o 


SE Bd 


@ 
fame, 
(7) 


nese 
ZECz 


bea 
oO 
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MACRO M1113 22-DEC-80 12:16 PAGE $14 


am ROOTES IGN. TE SD 


#20, ML .REG+120 


6(SP) 
R3 
i 
BA. AES1EIO.2¢SP? 
RS 
oa .REG+100 


aE 
& 


= 


Sane 
& arc. 


= 
Fd 


; *,HW. SAVE 
2 SW.ORED,* 





SEQ 0301 


33-pec=1980 09:91:22 






NS 
f ROF i. * 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 85 
MISCELLANEOUS C CTION 





1% sML4 
1% ' 

136 MOV R4 

1 177000 BIC 3 R3 

1 CMP 

1 BEQ 

1 TRAP 

1 .WORD 116 

1 -WORD  ARR.DAT 

1 WORD R 

1 7454 MOV #PHR.4.-(SP) 
1 MOV MPO.19,-(SP) 
1 MOV WARD . 36.-(SP) 
1 MOV #uRD.35,-(SP) 
4 MOV #F OR. FMT ,=(SP) 
1 MOV #5,-(SP) 

4 MOV $P-RO 

136 TRAP 4 

136 MOV R4,R3 

136 MOV * (SP) 

4 > MOV eo 

136 BIC “ 

1 BIC > (SP) 

i BIS (SP), 

i areeee mov B1P7000, (SP 
i 177000 Bic #177000. (SP) 
1 inna MOV #4,-(SP) 

1 MOV ~RO 

: 1 000030 MOV n 30(SP) 

1 000024 ADD #24,SP 

1 15$: INC 1 

1 000177 CP R1,4177 

1 BLE $s 

1 000004 000001 CMP (SP) #1 

1 BNE 16$ 

1 144040 MOV MA. LUN.RO 

1 TRAP 

1 TRAP 4 

j 000010 16$: ADD #10,SP 

1 RTS PC 

1 3; Routine Size: 177 words 

! 3; Maximum stack depth per invocation: 20 words 
1 


Hi. SAVE , 


HW. SAVE , * 
SW.ORED,* 


SP,* 

* ,DODU.FLG 
PROM. ADRS * 
DODU.FLG,* 


SEQ 0302 


33-pec=1980 O9:e1:22 Pare 


6612 


661 


6544 





CZMLABO 
al 


ARSaLES 


ed ced ed ced ed ed ed 2d ed ed dd 


=11 


6627 


8 
MACRO M1113 22-DEC-80 12:16 PAGE 16 


T 
cTI 
| 
177232 1$: JSR 
ROR 
BLO 1 
RTS 
3; Routine Size: 6 words 
: Maximum stack depth per invocation: 
' <BLF /PAGE> 


0 words 


8 
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| 
MISCELLANEOUS CODING SECTION SEQ 0304 | 
13758 :ML4 —Dec-1 26:31 ToPs-20 Bliss-16 v2(212) 
13759 | 3 ya peat t+ 93:84:33 A: <NEALE>BL3ML4.BL1.2 (76) | 
; 761 3 ! | 
} 768 ; BGNTST; | 
13765 : res 
1 5 ; | TEST NUMBER: TST 26 
13768 ; $ i TEST NAME: UV ADRS ERROR TEST 
13769 ; : 
1 FE TEST DESCRIPTION: 
13772 : i TEST THE DETECTION OF UV ADRS 
} : 6640 ! ERRORS BY: 
ies peak 1. GENERATING ‘A PATTERN 
13776 : oes i . SROMO 10 80° 1 77077" AND 
1 : 6644 DETERMINE WHETHER RESPECTIVE 
13778 : 6645 | PATTERN Is GOOD/OR BAD 
13779 : S646 i PROM DATA 
layer poets 2 VIA. DAT AD PROM 
13781 ; , 
1376 3 6649} lareenT 
13783 : 6650! PROM DATA TO THE UY ADRS 
’ BA; 663) ERR PROM 
13786 : 6653! 3. TEST ERROR CONDITIONS FOR 
1 : 6654 CORRECT RESPONCE TO GOOD/ 
i B 6655 OR BAD PROM DATA. 
13790 : $628 i 
13791 ; 6658 
13792 ;: 6659 Local 
13793 : 6660 DODU_FLG, 'DROP UNIT FLAG 
137% ; 6661 HIGH CNT. i STORES pron DATA CHECK SUM BITS 
13795 : 6664 PROM DATA : bitvector (16), iSTORES PROM 
137% : Low CNT, i STORES SUM OF PROM DATA BITS <9:0> 
13797 : 6664 T iTEMPORARY STORAGE 
i 9 : 6666 ERR FLG. iste UREN PROM DATA BIT 15 IS A ONE 
: B00 oe poDU rs leant 
Pa | P+ = by 
13802 ; ese PROM_DATA = -1; 
13803 ; 66 
13804 ; 6671 do 'TEST ALL POSSIBLE PROM DATA COMBINATIONS 
13805 ; S676 begin 
: a0 SB: 6677 _ = .PROM_DATA + 1; ! INCREMENT PROM_DATA 
13808 : 6675 
1 : 6671 ERR-FLG = ZERO: 
13810 : OW-CNT = ZEROES 
13811 : 6678 HIGA_CNT = ZEROES; 
13812 : 6679 GTR_FLG = ZERO; | 
ae 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0305 | 
13814 :ML4 -1 :26:31  TOPS-20 Bliss-16 v2(212) 
: 6 : ; ye saat bs 93:84:35 PA: <NEALE 4.BL1.2 (76) | 
138 $. $680 
i : § 3 1 incr BIT_CNT from 0 to 9 do !COUNT PROM DATA BITS <9:0> 
1 B20 ; if .PROM_DATA [.BIT_CNT] IS_SET then LOW_CNT = .LOW_CNT + 1; | 
1 B22 ; HIGH_CNT = .PROM_DATA<10, 3>; 'GET PROM DATA CHECK SUM BITS | 
is : if .PROM_DATA [13] IS_SET then HIGH_CNT = .HIGH_CNT + 1;  !ADD IN BIT 13 IF SET 
1 g 5B: if .PROM_DATA [14] IS_SET then HIGH_CNT = .HIGH_CNT +1;  !ADD IN BIT 14 IF SET | 
1 8 B: 6691 if .PROM_DATA [15] IS_SET then HIGH_CNT = .HIGH_CNT + 1; !ADD IN BIT 15 IF SET | 
1 8 0 : $636 if .PROM_DATA [15] IS_SET then GTR_FLG = ONE: ‘SET FLAG IF BIT 15 IS SET | 
13832 : 6695 DAT_DALXFER ©; 'SET UP A DATA DIAG MODE XFERR 
13833 ; 66% = ONE; iSET PROM READ | 
13834 ; 669 MLPD-= .PROM_DATA;: iLOAD MLPD WITH PROM_DATA 
13835 ; 6698 MLCS1 = write: iDO A WRITE FUNCTION” 
13856 6699 DAT_CLK = ONE; ICLOCK PROM DATA INTO UV PROM 
13838 : 6701 if .UNS IS_SET 'SEE IF PROM DATA CAUSED A UV ERROR | 
1 : ygai4 then \ 
re ae pth _— 
133 : 6705 if .GTR_FLG IS_SET 'UNS IS_SET. SEE IF GTR FLG IS SET 
1 3 6706 then 
1386 : 6707 begin 
13845 : 6708 = .PROM_DA 'LOAD TEMP WITH PROM DATA 
13846 3 6709 TEMP = .TEMP™ ~ Mio 162000° : iSEE IF THESE BITS ARE SET IN PROM DATA 
13848 : 6711 if .TEMP eql %0°162000' 'THESE BITS SET AUTOMATICALLY CAUSE A UNS 
13849 : 671 then 
i ora — 
1 3 6715 if .LOW_CNT geq .HIGH_CNT 'LOW<9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GTR FLG IS S 
13854 ; 6717 begin ‘ERROR IF LOW<9:0> IS GEQ HIGH<15:10> 
13855 ; 6718 E (72, ARR_DAT OYAPER) 
13856 : 6719 PRINTB (SIX_FMT, WRD_34, PHR_5S, WRD_32. WRD_6. WRD_33, WRD_24); 
13 3 6 ERR_FLG = ONE; 
is 3 6 1 end; 
1 : : 6 end; 
138 3 67246 
138 5 6725 end 
13863 ; 6 else 'GTR FLG IS NOT SET 
} B64 5 3 begin 
13 ; 6 if .LOW_CNT eql .HIGH_CNT !LOW<9:0> SHOULD BE NEQ HIGH<15:10> 
1 : 6731 begin ‘ERROR IF EQL 
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mi SCELLANEGUS CODING SECTION SEQ 0306 | 





13870 :ML4 -1 2:26:31 wer Bliss-16 ere? 
} 871 : og pec~ 1380 $3384 i35 <NEALEDGL 3ML4-BLI.2 (76) 
13875 : 6 ERRDF (73, ARR_DAT R); 

13876 : 6 PRINTS (SIX_FMT, Who Se PS, WRD_32, WRD_6, WRD_33, WRD_24); | 
13875 ; & ERR_FLG = ONE: 
i ¥ g 5 end; | 
1 t : 6 end 

13 } g end | 
13881 : 6740 else 'UNS WAS NOT SET | 
: B82 ore) begin 

1 BE 3 eres if f GTR FLG IS_SET SEE IF GTR FLG IS_SET | 
13886 : 6745 

13887 ; 6746 begin -PROM_DA ‘LOAD TEMP WITH PROM DATA 

i B88 647 TEMP = .TEMP™ oa é0*162000"; iSEE IF THESE BITS ARE SET IN PROM DATA 

1 3 6749 if TEMP neq %0'162000' 'IF THESE BITS ARE SET THEN UNS SHOULD BE SET | 
1 3 6731 begin = ‘ERROR UNS IS NOT SET 

1 ; 675 PRINTB “sixgr EAT. WRD Ne Pk . WRO_32, WRD_S, WRD_33, WRD_24); 

13098 reat: en | 
1 : 6 else ‘BITS 162000 ARE NOT SET 

1359 ree — 

1 3 6759 if -LOW_CNT lss .HIGH_CNT 'LOW<9:0> SHOULD BE GEQ HIGH<15:10> 

1 : 6761 in ‘ERROR IF LSS 

13008 : 6762 peior (75, ARR_DAT DUAPER) 

13906 : 671 PRINTB (SIX_FMT, WRD_34, PHR_1, WRD_32. WRD_S, WRO_33, WRD_24); 

1 : 6764 ERR_FLG = ONE: 

i 2 6765 end: 

13907 : 6766 

1 : 676 end 

1 0 : ores end 

13911 : $765 else 'GTR_FLG IS NOT SET 

: § : or? begin 

1 4 ; 6775 if -LOW_CNT neq .HIGH_CNT 'LOW<9:0> SHOULD EQL HIGH<15:10> 

1 g : 6775 n ‘ERROR IF NEQ 

1 : 6776 E (108, ARR_DAT R); 

13918 ; 6 PRINTB (SIX FMT, WRO_34, PHR_1, WRD_32, WRD_5, WRD_33, WRD_24): 

! 9 ; 6 ERR_FLG = ORE; 

4 : 

1 3 eres end 

1 3 6 

1 : 6 end; 


ES CO ess 
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MISCELLANEOUS CODING SECTION 


13926 :ML4 “1 :26:31 TOPS-20 BLiss-16 V2(212) 

: 9 3 $5 pecn 1388 99:34:35 PA: <NEALE 4.8L1.2 (76) 
xfs: 

1 'O5C : 

19930 if -ERRFLG IS_SET !SEE IF ERROR FLG GOT SET 

} ae ; begin 'PRINT FAILING PROM_DATA AND SET DODU_FL6 

13933 : 6 PRINTS (FMT_7, .PROM_DATA); 

139% 6 DODU_FLG = ONE; 

13936 : 6791 

13937 ;: Or%5 ENDSLUB; 

13938 ;: 79. end 

i 939 : 67% until .PROM_DATA eql %0'177777': 'TRY ALL BIT COMBINATIONS 

1 m1 5 eros if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS SET 

13%3 ; 798 begin 

135944 ; 6799 (.ML_LUN) ; 

13%5 : 6800 DOCLN: 

: m6 : 6801 end; 

1368 6808 ENDTST: 

13956 ¢ 134326 $126: JSR _—R1,SSAVES : 

13957 ¢ 2 SUB #12,SP 

13958 ¢ CLR 6(SP) DODU.FLG 

13959 ¢ i 000010 #-1,10(SP) > *, PROM. DATA 

13960 ¢ 000010 1$: INC 10(SP) PROM. DATA 

13961 ¢ 23: TRAP 2 

1396¢ ¢ 143370 BISB #40,aML.REG+40 ; 

Be | Sina 

13965 ¢ 906007 143352 BICB #7 a. -REG+4O 

T3966 ¢ ———= --——--—BI$8 -—R5<@MLREGH4O - -— —-—- - - 

13967 ¢ CLR R1 : ERR.FLG 

ie | wate AS pce 

13970 ¢ 000004 CLR 4(SP) + GTR.FLG 

13971 ¢ CLR R5 + BIT.CNT 

13972 ¢ 3$ MOV R5.R6 : BIT.CNT,* 

1307 ASR ORG 

13975 ¢ ASR RG 

13976 ¢ 000010 MOV #10,R2 

13977 ¢ ADD SP,.R2 : PROM.DATA,* 

13978 ADD R2-R4 

1 MOV R4.-(SP) 





3 
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SEQ 0308 


ms $B pee- 908 09:34:33 










Suns : Gn ent 
BIC 77770, R3 : *,HIGH.CNT 
000011 B1TB rae : *,PROM.DATA+1 
INC : HIGH.CNT 
000011 5$: e178 #100,11 (SP) t *,PROM.DATA+1 
a Nc RS : HIGH. CNT 
y TST i (SP) + PROM.DATA+1 
INC 
INC RS : HIGH.CNT 
‘a Beet«dSS , 
eR BLOAT OM XFER — 
143220 BIS8 wi60 aL .REG+120 : 
MOV 1956) .RS + PROM.DATA,* 
MOV aM -REG+230 
1 MOV { aL REG : 
143174 8188 =REG+120 : 
143126 are : oO .RE 3 
000001 oP 4(SP) an : GTR.FLG.* 
MOV My <sP) : 
BIC #15777, (SP) > *, TEMP 
ow (SP) #16000 : TEMP,» 
ow (SP) RS : LOW. CNT HIGH. CNT 
i. JP 19s 
10$: TRAP #0 3 
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sML4 -1980 09:26:31 
: 35 pec-1980 93:54:32 
012746 MOV WED. 26 ,~(SP) : 
d MOV MRO. 33,-(SP) 
MOV WARD .6,-(SP) 
510746 MOV MRO. 32,-(SP) 
119766 MOV #PHR.5.=(SP) 
D107 MOV MRO. 34, -(SP) 
112746 MOV #SIX. Fait .=(SP) 
D1 5746 MOV s={SP) 
' 060 MOV ated 3: SP,* 
TRAP 4 
JU ° BR 15$ é 
2660 000002 118: oP €(SP) RS > LOW. CNT, HIGH. CNT 
04455 TRAP 5 3 
000 «WORD 111 
01057¢ -WORD ARR. DAT 
y 7 MOV WARD (SP) 
8 MOV aro 88. ~(eP> 
MOV WROD .6,—(SP) 
012746 MOV MRD. 32,-(SP) 
76 MOV #PHR.5.-(SP) 
MOV MRD .34,-(SP) 
46 MOV 1X. FMT ,=(SP) 
MOV »~(SP) 
NI O6OC MOV SP .RO 3 SP,* 
044146 TRAP «16 
BR 15$ 3 
00000 : J 3 GTR.FLG,* 
1 128 oP (SP) wi 
MOV RS, (SP) > *, TEMP 
BIC #15777, (SP) > *, TEMP 
cMP (SP) ,4#-16000 : TEMP,* 
BEQ 4 
TRAP § F 
.WORD 112 
;WORD  ARR.DAT 
“WORD  DUMPER 
MOV MRD. 26 ,-(SP) ; 
MOV MPO .33,-(SP) 
MOV #RO.5,-(SP) 
MOV MRD. 32,-(SP) 
MOV #PHR.1 (SP) 
MOV MRO. 34, -(SP) 
MOV #SIX- FIT .~(SP) 
MOV »7(SP) 
ROY ated 3: SP,* 
TRAP 4 
BR 15$ ; 
13S: CMP (SP) .R3 ; LOW. CNT.HIGH. CNT 
BGE ¢s 








: 





$e 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 

















: 


Say 





ZML4 -1980 T 
: ym saa rss PA 
000 .WORD 113 

MOV MRD. 26 ,-(SP) : 676 

MOV MRD. 33,-(SP) 

MOV #RO.5.—(SP) 

MOV MRD. 32,-(SP) 

MOV #PHR.1.—(SP) 

MOV MRD. 34,-(SP) 

MOV #SUX FIT .=(SP) 

MOV »~(SP) 

MOV $P-R0 : SP.* 

TRAP 4 

BR 15$ 3 671 

ow ‘ > .R3 > LOW. CNT, HIGH. CNT é 

TRAP Z 6771 

«WORD 1 

-WORD  ARR.DAT 

“WORD  DUMPER 

MOV MRD. 26 ,-(SP) : 6 

MOV MRD. 33,~( 

MOV MRO.5.—(SP) 

MOV MRO. 32,-(SP) 

MOV GPR. 1 = (SP) 

MOV #uRD. 34,-(SP) 

POV #SIX- FT .=(SP) 

MOV 7/7 (SP) 

OV SP RO : SP,* 

TRAP «16 

MOV #1,R1 : *,ERR.FLG 6 

ADD #20,SP : 6775 

CEP R1.41 : ERR.FLG,* 8 

BE 178 

MOV RS =($P) : 6 

MOV #FAT.7,~(SP) 

MOV #2,-(SP) 

MOY SP .,RO : SP.* 

TRAP «16 

MOV #1,14(SP) : *,DODU.FLG & 

ADD SP 2 678 

TRAP 6 : 6 

INC 3 6794 

BEG 198 

enn pou. ru os 

eo Pt . o* 
oe |OUS 
MOV ML.LUN,RO : 6 











CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


141 04644 
141 000012 
Volee 4 

132 


_ 
& 
- 
A 
~ 


76 
141 767 176664 
141 Toeees 


!<BLF /PAGE> 
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sML4 


TRAP 44 
20S: ADD cie-mP 


RTS 
3; Routine Size: 292 wo 


: Maximum stack depth p per > tte 


T26:: 


1$: JSR PC .$T26 
TRAP = «66 
ROR 
BLO 1 
RTS PC 


: Routine Size: 


6 words 
? Maximum stack depth per invocation: 





19 words 


0 words 


3B ec 


-19 
-19 





SEQ 03511 


80 9: $132 PA: 


ty ML-11 LOG 
MISCELLANEOUS 


aD oth oad 


eee 
poss 
838 


eh ed ed eh eg et ed ed a od ed ah eh oc cd wd ed) ad ed ed th ed ed dh ot ot I tk oh 8 et ed 8 td oh ot ot td at eh ot 4 ah 


RRRRRRRRE 
exe eB eed ced oh td od od ed 
BLESLESS 


Bee Pe Se Ge Ge Fe Ge Se GeiGe Ge Ge Be Fe Ge Se Ge Ge Se Ge Ge Ge Se Se Ge Ge Be Ge Te Se Ge Ge Ge Ge Ge Ge Se Ge Ge Be Ge Ge Ge Ge Ge Se Ge Ge ts Ge Ge 


OO BNAUSWN—O 


NINtN RRA 


+ + 
NUN 


ic 


Re VSSLULELERNAN 
=Owc AWE GIAO OC 


sm4 


Coo 


TEST 


Ic 
ING SECT 


eed aed ed ed ed 


Seeeene 
ODOno 


inet : 


QGNTST: 
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5opee=1980 O9:o1:22  PAScNEALESOL SN 


$e 
; TEST NUMBER: TST 27 


i TEST NAME: INITIAL ARRAY TEST 
i Test DESCRIPTION: 


DUE TO THE NATURE OF THE DEVICE 
THERE EXISTS KNOWN BAD ARRAY 
DATA LOCATIONS. 


THEREFORE TO INITIALLY TEST THE ARRAYS’ 
TIMING AND CONTROL 

NIBBLE THRESHOLD OF BAD NIBBLES 

OUT OF 100 NIBBLES TESTED WILL BE 
TOLERATED BEFORE DETERMINING CONTROL 
LOGIC TO BE IN ERROR. 


THE ARRAYS’ ARE INITIALLY TESTED BY: 


1. VIA DAT_DM MOD WRITE a PATTERNS 
OF 1°S $ he 0°S TO 5 ARRA 


2. TEST EACH NIBBLE (4 BITS) FOR 
1°S AND _0°S AND COUNT EACH BAD 
NIBBLE ENCOUNTERED 


3. IF ACCUMULATED BAD NIBBLES 
EXCEED 36 THEN REPORT AN ERROR. 


local 
TST_PAT, 'TEST PATTERN 
BAD CNT, 'NUMBER OF BAD NIBBLES FOUND 
ERR_FLG; 'ERROR FLAG 


BAD_NIB_CNT = deRoes; | 


684 

6850 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 

6851 in 

oe 

6854 ALDI = TST PAT; 'LOAD TEST PATTERN INTO DIAG REGISTERS 
6855 MLD2 = .TST-PAT: 

6856 MLE = [TST~PAT: 





SEES 
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SECTION SEQ 0313 











eee ce et Oh mk et ed ed ed wd ed td td td 2d nd ed od 8d od 


a 
ee 
5, 
is 
e 
if 
2 


ENDTST; 


el a at 8 th dt 2 a tt od a td ot ot ot sy = a 


33pec=1980 09:91:22 PRsCMEALESOL SMS. BL -2 (79 


n 
TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE TST PAT TO NIBBLE UNDER TEST 
if .ERR_FLG IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 
! INCREMENT BAD_NIBBLE COUNT IFERR_FLG SET 


DAT DM = 'SET DATA DIAG MODE 
FIRST_BLK_ aren QO; {Ser | UP A FIRST BLK XFERR 
MLCS1"= write: A MBUS WRITE FUNCTION 
iner as from 0 to 4 do 'CLOCK 5 WORDS INTO MEMORY 
DE Ay (ONE_US); : 
DAT_CLK = ONE; 
ae ‘SET DATA DIAG MODE 
fi ars rn QO: iSET UP A FIRST BLK XFERR 
iDO A READ FUNCTION 
DELAY (ONE "08: 
war AS wren © tS oe 'READ THE 5S WORD IN MEMORY 
DAT_CLK = ONE: 'CLOCK OUT A WORD INTO THE DIAG REGS 
DELAY (Oe =USS; 
RD_LNG_WRD 'READ THE DIAG REGISTERS 
iner nia. prR from 0 to 9 do 'READ THE 10 NIBBLES IN THE WORD 







end; 
end; 
TSTal = not .TST_PAT; 'REPEAT WITH COMPLIMENT TST PAT 
ENDSUB; 
if ae pa_on gtr 36 'SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD 


: in ‘ERROR IF GIR 36 © 
PRINTB Try ome’ uD oe Pur 4, WRD_12, WRD_45, FNC_14); 
DODU (.ML_LON); 

















14295 ZML4 -1980 09:26:31 
6 50 ; 35-1585 5:34 ibe 
1450 $727: JSR 1, SSAVES 3 
: % nov n os *, TST.PAT 
14308 CLR 35s) + BAD.NIB.CNT 
14305 CLR : TWICE 
1431C 1$: TRAP 2 : 
1431 1462254 BISB #40,@ML.REG+40 ; 
i Bre wh 
143) 142236 BICB a RE 
1 BIS8 = R4.. aL. 
1 R1, aM. REG+ : TST.PAT,* 
1 MOV R1, aM .REG+ : TST.PAT.* 
1 MOV RI a. .REG+ : TST.PAT.* 
14315 142270 B1S8 6, am .REG+ : 
14320 JSR FIRST .BLK.XFER : 
14327 142136 MOV 1am. .REG : 
1432¢ CLR 3: CNT 
14323 $3: MOV 3 : *,SSTPP2? 
1 »e4 : BEQ 6$ 
1 2 MOV * aeptene Py * ,SSTMP1 
14326 BEQ 
143 4$ CLR 4(SP) > SST 
14328 03 DEC R4 : SSTMP1 
14329 05 GE 4$ 
1 x ip 5S: bec RS : SSTMP2 
14332 05 142216 6$: B1S8 #20,aL.REG+120 : 
14335 05 INC 3 CNT 
} 3% 0: ow MG 3; CNT,* 

» tp» 
14336 0! 142120 BIS8 £40,@ML.REG+40 : 
1 cre Pea 
1434 oreer i me 
1 142150 8188 4#10,aM .REG+120 F 
1 JSR FIRST.BLK.XFER : 
14343 142016 MOV REG 3 
1 MOV #1 : *,SSTPHP2 
14 7$: BEQ 108 
1 mov Ls Y,R4 : *,SSTMP1 
14, BEQ 
1 8$: CLR 4(SP) 2 SSTMP 
14390 OE tCOS = 
6 51 ¢ 93: DEC RS : SSTMP2 
14, 2g 05 10 CLR R2 : ARR.WRD 














SEQ 0315 
PA: 


33500-1980 09: 


ee « = as * 5 
~ 2. 2 os . 8 ° 
Fug Sige: of , 
~cea3 S28 ES S882 B33 2 


lon R oes ~ 
“ig ss S $8858% 

% ; $35 on3 38 outed neste 

2 6a BRE ORNOns og Eg hese: 

e ga2ae® Se M ER Redea diocese eens setnost Tt ee 
g ce 

¢ _‘Saapasuncsbeesneneteexextseezsteite ction’ 
= 

g ERE 

: BSS 





gooey 142076 11$: 


















SSDSBK 
AA 


NP Tekan 


cha 
TC uletlesles Y, 


NO P&H HO NY 
4-4 


dR» i 
Kame ON NONE ite 





OP Pit -7-F it ¥~ 





wn< 
DAWA S 











Oooe 
RRA 





MBSSSDELRK 2 Re OS OBO RSS 





a So —- 


$ 
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SEQ 0316 
e mu SERS ES OB 
veal Teco 142142 TRAP ce ; 
eom =. F be : 


3; Routine Size: 177 words 
3; Maximum stack depth per invocation: 16 words 


1284 006767 177232 1S"? ign oer27 

1 rth 4 ‘ TRAP 66 : 
RO 

1466 


SEELSSSE SEES 


1 ROR 

1 BLO 1$ 

; 00020 RTS PC 

1 ; Routine Size: 6 words 

1 : Maximum stack depth per invocation: 0 words 
14449 

14450 

14451 ; 6904 '!<BLF/PAGE> 





eS OC 
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NG SECTION ama trees SEQ 0317 


10 

A VECTOR OF 256 WORDS WHERE 
DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


SESERETERES 
BSLKZRASLS 


14453 :ML4 —Dec-1 26:31 ToPs~20 Bliss-16 y2(212) 
Fi : § —pec~ 1350 eS Be <NEALEDGL 3PL4 4.8L1.2 (78) 
144% ; 6 4 
14457 : BENTST: 
18 “ 
16460 ; | TEST MUMBER: TST 28 
1ehbe ; ; TEST NAME: | PROM SELECTION TEST 
146464 : ' TEST DESCRIPTION: 
14465 : i DUE NATURE OF THE DEVICE 
16466 : i AND OF ARRAY MODULES’ UV 
16467 : i PROMS Y PROM READS ARE 
Pers ; ALLOUED Du DURING DIAG TESTING. 
14470 : i THEREFORE THE ARRAY UV PROMS 
16471 : ARE TESTED FOR UNIQUE ee HE con BY: 
14478 : 1. AT EACH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1°S/0'S PATTERN. 
14475 : i 2. READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF 
14476 : i THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD NIBBLES 
14477 : i INDICATES INCORRECT MASKING). COUNT EACH BAD NIBBLE ENCOUNTERED AT AN 
14478 ; Y MODULE. 
16480 : 3. ALLOW A THRESHOLD OF 5 BAD NIBBLES AT ANY ARRAY MODULE. 
1 : i 4. REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE 
} ; THRESHOLD IS EXCEEDED. 
14489 : IMPLICIT INPUTS: 
1eeae : i A GIT VECTOR OF 16 BITS WHERE 
14488 : i THE READ PROM DATA IS STORED 
14489 : AND ACCESSED FROM. 
; 
° i 
: i 
3 i 
s = 





local 

DODU_FLG, 'DROP UNIT FLG 
14500 ERR_FLSG, ! LG 
14501 TST_PAT, 'TEST PATTERN 
eons ERR_CNT; 'ERROR COUNT 
14 
14506 DODU_FLG = ZERO; 
ieene TST_PAT = ONES; 
12s00 incr ARR_SEL from 0 to .LST_ARR by .ARR_INC do !TEST ALL PRESENT ARRAYS 











ey 
eee 


ee ced ed ed ed ed ed ed etd 


OONAULS VIN 


ITA 


ce ce me ee ce ee ed ee ed ed ed od ed ed nd od = od od 
BERRRRRERRERREEERER 


RRRS 
VV 
—_ 


145 


sML4 


6974 
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iner oF from 0 to 127 do 
n 
DELAY (ONE_US); 
T_CLK = ONE; 


incr NIB_PTR from 0 to 9 do 
if .PD_TEMP C.NIB_PTR) IS_NOT_SET 
then 





33 pec=1980 09:91:22 


!REPEAT LOOP TWICE 

!LOAD DATA DIAG REGISTERS WITH TST_PAT 
'SET DATA DIAG MODE 

'LOAD WORD COUNT 

‘LOAD UBUS ADRS 

‘LOAD SECTOR 

!DO A WRITE FUNCTION 

!CLOCK IN 127 WORDS 


!SET DATA DIAG MODE 
'LOAD WORD COUNT 

'L UBUS 

‘LOAD SECTOR 

!DO A READ FUNCTION 
'READ THE 10 WORDS 


'GET PROM DATA FOR THIS WORD 
'CLOCK THIS WORD INTO DIAG REG 


!READ DIAG REG FOR THIS WORD 
'LOOK AT ALL 10 NIBBLE 
‘FIND GOOD NIBBLES 


in 
TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE NIBBLE TO TST_PAT 
if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1; 


end; 
end; 
TST_PAT = not .TST_PAT; 


! INCREMENT ERROR COUNT IF ERROR FLG IS SET 


!REPEAT WITH COMPLIMENT DATA 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALEOL SAL ¢. BL 1-2 (78) 


7 


SEQ 0318 | 


| 





SEQ 0319 


4.BL1.2 (78) 





TOPS=20 Bliss-16 V2(212) 


PA: <NEALE 


3 *,TST.PAT 
TST.PAT,* 
TST.PAT,* 
TST.PAT,* 


: ARR.SEL 


; DODU.FLG 


— 
73 
” 
— 
oO 
) 
i 
2 
é 
ka 
mt 
— 
3 
” 
my 
=x 
= 


!ALLOW 5 ERROR BEFORE ERRORING 


'ERROR IF GTR 5 


33pec=1980 09:51:22 


es. seelat ct’, Sg uswasusel 


its | SOSBRESESS SaBEaEEE Se 


ARR 

One; 

SET 
LUN; 


28 8 


35. : 
: § #g gee gernayones 
: i BES LL 


9 
57, WRD_10); 
(SP) 
(SP) 
-REG+40 
RS 
: 
os 
G+ 
G+ 
-@ML .REG+10 


MACRO M1113 22=DEC-80 12:16 PAGE 332 
T 
WROD 
ARR_S' 
141426 
460 
342 


end; 

RR_CNT gtr 5 
in 
PROF. < 
PRINTB 
PRINTB 
DODU_FL 

end; 
ENDSUB; 
if .DODU_FLG IS 
in 
DOCLN 
end; 


if .E 


expancnaunayes gus: 


z. PP bbe ddd kde ede ddd te Oe | 
eee 


GISSSPEIM NPR SEND SG ESSERE RESSSsSesSe595SS59999 
AOE ERE RERERERERERER EGY 





eee = --4 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0320 
146 sML4 —Pec-1980 09:24:31 TOF 
: : : ry meets 44 Oost ias :< 
14623 05 141344 MOV #10.BUF @ML .REG+20 : 
14606 05 MOV R1 aM. .REG+30 + ARR.SEL,* 
14625 05 141312 MOV {aL REG 3 
1 +a ve CLR e CNT 
1 w ‘p 4$: MOV #1,R4 P] * ,SSTMP2 
14628 05 5$: BEQ 
1 . ; 'p MOV ” saan ° * ,SSTMP1 
14630 0: BEQ 
1463) 9: 6S: CLR 14(SP) : SSTMP 
14632 OF DEC RS : $STMP1 
14633 04 BNE 63 
14634 05 73: DEC RS 3 SSTMP2 
14635 08 BR 5$ 
14636 0 141372 8S: BIS8 #20,@ML.REG+120 : 
146357 05 INC 3 CNT 
: e < 'p of aur é CNT,* 
14640 05 141274 BIS8 #40,@L.REG+40 ; 
renee: “st4 5 
14643 08 141256 BICB 47.9 -REG*40 
14644 05 BIS8 R5.amL.RE 
14645 05 141326 BIs8 #1 -REG+120 ; 
e646 05175 141 MOV PL .REG+10 : 
14647 OF 141210 MOV #10.B0UF ,@ML .REG+ ; 
16648 ip MOV Ri , ama. Recs 50 : ARR.SEL,* 
1 i 141156 MOV aM .REG : 
i i MOV #1,R4 : *,$STMP2 
1 ¢ 9S: BEQ 128 
j : MOV SDLY.RS5 : *,SSTMP1 
1 ys. ~ BEQ 1$ ‘ chs 
Tes *. 10$: CLR 14 (SP) : SSTMP 
1 x DEC RS + S$STMP1 
1 e VEY BNE 10$ 
i ; 11$: DEC R4 : SSTMP2 
1 520; BR % 
1 ou, 4 CLR 3: WD.CNT 
4 141062 13$: MOV -REG+230,PD. TEMP : 
14661 05: 141 BIS8 #20,aL.REG+120 : 
1 D520 MOV RE + *, SSTMP2 
1 > 14$:  BEQ 1 
1 MOV LSDLY.RS : *,SSTPP1 
1 > BEQ 6$ 
1 520 15$: CLR 14 (SP) : SSTMP 
1 ' DEC ose : SSTMP1 
1 Y5 COE BNE 1 
1 be 16$: DEC RG : SSTMP2 
146 BR 14$ 
14671 052 137050 17$: MOV @ML .REG+170,D1. TEMP 
18% | my Se Aeeeh-28: 1B 
14676 052 CLR sR : 
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MISCELLANEOUS 


CODING SECTION 


¢ 
ee 


S8ecec8 





NIB.PTR,* 


; NIB.PTR,* 


v ty ty ty ty ty ty 4 


+ ¢? ¢? 4? 4? > 4? 4? 4? ¢ 
@ 


= 
o 


-.|*-\2- «= 
v ty ty ty ty * 


. - 
OB . ; . + ye Js ore 


EL 





WAWAAA WS 


sae 


; NIB.PTR,* 
; TST.PAT,* 


; ERR.FLG,* 


; ERR.FLG,* 
; ERR.CNT 


cd ce ce ce ed ed ce ed cd ed ed ed ed ed ed ed ed ed od 20“ = 20d od ed 


— 
RRR 


; NIB.PTR 


; NIB.PTR,* 


>. WD.CNT 
3: WD.CNT,* 


Se oe 
BRRARAR 


g 


| 
EEREREER PERCE 
tae oD Roel See 8 + + 
beh gly ayy’ + 


é 
> | 


; TST.PAT 
; TWICE 
; TWICE,* 


; ERR.CNT,* 


NERERR EE 


OEBNAURUMN = 
SIRE 


SRARPRRPEES 


™~ 


. SP,* 
; ARR.SEL.* 





gUsdegUleeedggc gta anae aan xan sueleaRzeace 


ISISISS: 


14 
14 
14 
ita 
14 
14 
14 
14 
Te 
14 


- SP,* 








33-pec=1980 09:51:22 










———— ——— —— —————————— OC lr > 
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MISCELLANEOUS CODING SECTION SEQ 0322 





14 sML4 a poets 7:24:31 T 

12 : g ~1580 OFS i30 

14 MOV #1,26(SP) : *,DODU.FLS 

14 ADD #16,SP ; 

14 22S: TRAP 67 : 

14 ROR 

14 BHIS 

14 JMP 

1476 23$: crap O(SP) #1 : DODU.FLG,* 

147 BNE e4$ 

14 MOV *; Sametaated Z 

14 TRAP 5 

1eoee oe tesp) R1 ARR.SEL 
: 3 ’ 

aoe oe: CMP R1,6(SP) : ARR.SEL,* 

147 BGT 

1476 JMP $ 

14750 26$: ADD #16,SP 3 

pg. ' RTS PC 

14 3; Routine Size: 244 words 

pit a] 3; Maximum stack depth per invocation: 20 words 

14760 

14764 

14 T28:: 

14 006767 177024 1$: JSR PC,$T28 3 

170 Sais dbs eS 

1p Bese Se = 

14 000207 RTS PC 

14774 

14775 3; Routine Size: 6 words 

wen : Maximum stack depth per invocation: 0 words 


! <BLF /PAGE> 





9 
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MISCELLANEOUS CODING SECTION 


ec ce ce ce ed ee ee ee cee ce ced cee ee ced ee ce ceed ee ce ce ed ced ee ced ced ed ced ce ed ceed ced ed ed ee ed ed ed ced ced ed ed ed ed ed ed ed ed ed ed = ad 


BRE ad od ed 


™ 35 SRERRRR 


SSSRSSSSSSSSRRERREERIIII9 aaadaaeee 


GEES RRRGR SERBS RRRES 


m4 


Silidieiimenticiabammmmmmmaiooaes c 


33 pec=1980 09:91:22 PA: CREALEOL SLC. BL 


TEST NUMBER: TST 29 


10 3 
A GECToR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION 


TEST NAME: READ WRITE ARRAYS WITH PROM DATA 

i TEST 2 ee 

i re READING OF ARRAY 

i RODULE: Dat WITH ARRAY MODULE UV PROM DATA AND 

i ND A GOOD BLOCK WHERE FURTHER 

TESTING WILL BE PERFORMED BY: 

i 1. STARTING AT BLOCK 0 WRITE THE BLOCK WITH SELECTED DATA PATTERNS 
i AND READ THE BLOCK AVOIDING ANY BAD NIBBLES POINTED TO BY THE 
PROM DATA. 

SET ERROR FLAG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK. 

i 2. REPEAT WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED 
OR THE ERROR FLAG IS SET. 

i 3. IF ALL PATTERN HAVE BEEN TESTED AND THE ERROR FLAG IS NOT SET 
THEN SAVE THIS BLOCK ADDRESS AS THE GOOD BLOCK ADRS AND EXIT TEST. 
i 4. ELSE IF THE ERROR FLG HAS SET THEN REPEAT TEST AT THE NEXT ROW. 
REPEAT UNTIL A GOOD BLOCK IS FOUND OR LAST ROW IS REACHED. 

i 5. IF NO GOOD BLOCK IS FOUND BY LAST ROW THEN REPORT ERROR AND 
EXIT TEST. 

i IMPLICIT INPUTS: 

i RAS_ INC 

i LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS 
INCREMENT VALUE FOR THIS DRIVE. 

i 

i PD_TEMP: 

i A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
ACCESSED FROM. 

i 

i 

i 

i 

i 

_ 


local 
WRD_CNT, 'WORD COUNT 
NIB_PTR, 'NIBBLE POINTER 


oe 


SEQ 0323 


oe 
2 (79) | 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


sm4 


32e3 
eg 


SELESRELLS 


he ed ed ad ad ed ed ed 
WONAULWN—O 


os 


ec ee ce a ce ce me ce me wd ee me a we me we me wed ad we ee ed ed ek ed ed ed ak we od ed ed ng Ot nd od od od wo 0 od Oo od 4 Ls a 
Ww 


SPeesSeResRRaRaE aa Socscu see eeerER eas tnURCMoReE ers ES® 


Be Se Se Se Ge Ge Se Ge Ge Fe Be Ge Be Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Fe Be Ge Se Ge Be Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 


AIINAAAANIYAAIAAYIAANIVAAAAAAIVAAVAAVIIVAVIAIAIVY 
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case .PASS_CNT from 0 to 3 of 
set 


[0] : 
NIB_PAT = %0°000000°; 


3: 
NIB_PAT = %0'17"; 


2) : 
NIB_PAT = %0'12'; 


(3) : 
NIB_PAT = %0'15° 


incr LD_CNT from 0 to 9 do 


LD_UNG_WRD (.LD_CNT, .NIB_PAT); 


WRT WRD; 
mST oer te; 


iner any On from 0 to 127 do 


DELAY (ONE_US); 
DAT_CLK = ONE; 
end; 


CLR_MBUS ; 


a eects BAe Be vee SA ty 
'PASS COUNT 

'NIBBLE PATTERN 

§ FLAG 

‘ERROR FLAG 

'SECTOR NUMBER 


!THIS LOOP DETERMINES WHEN TO STOP 


!THIS LOOP RUNS THE PATTERNS 
! INCREMENT THE PASS COUNT 


'SET DATA DIAG MODE 
‘LOAD SECTOR NUMBER IN DSA 
‘LOAD WORD COUNT 


'LOAD UBUS ADRS 

SELECT A NIBBLE PATTERN 

! ZEROES 

!ONES 

'ALTERNATING ONE'S, ZEROES 
COMPLIMENT ONE'S, ZEROES 


'LOAD NIBBLE PATTERN INTO NIBBLE SAVE 


SEQ 0324 


v2(212) 
eBLI.2 (79) 


‘LOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE 


iDO A WRITE FUNCTION 
‘WRITE PATTERN INTO THIS BLOCK 
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Done LG = = ONE; 


hen 
GOOD" BLK = »SECTOR_| NO; 
end 
else 


in 
~,SECTOR_NO + .RAS_INC;” 
PASS. cA = 1 


end 


iy (.PASS_CNT eql 3) and (.ERR_FLG IS_NOT_SET ) 


YES 
iSET DONE 


'WAS THIS A GOOD BLOCK? 


FLAG 
!GOOD BLOCK GETS THIS SECTOR NO 


~ TINCREMENT ROW NO 
'RESET PASS COUNT 


until (.DONE_FLG IS_SET ) or (.SECTOR_NO eql .LST_ARR + .ARR_INC); 


!REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW 


MISCELLANEOUS CODING SECTION SEQ 0325 
1 m4 -1 226: TOPS=-20 BLiss-16 V2(212) 
128 | Fe oee=1380 OosStise | PRCINEALESOL Sous, Be (79) 
14 3 n DAT_DM = ONE; 'SET DATA DIAG MODE 
14 3 MLDA = .SECT B_NO: ;LOAD SECTOR NUMBER 
14 3 71 MLWC = not 3 'LOAD WORD COUNT 
14 3 7140 MLBA = 10 BUF; iLOAD UBUS ADRS 
14 3 ct) MLCS1 = read; 'DO A READ FUNCTION 
14905 : $e DELAY (¢ 5): 
ie 8 714 WRD_CNT = <1; 'RESET THE WORD COUNT 
14907 ; 7144 
18 8 7145 do 
14 3 cig in 'TEST ONE BLOCK FOR NIGBLE PATTERN 
14910 ; 714 CNT = .WRD_CNT + 1; 

14911 ; 7148 PD_TEMP = .MLPD; 'GET PROM DATA 
bye 1 3 7149 DAT_CLK = ONE: : CLOCK DATA WORD INTO DIAG REG 
14913 ; 7150 DELAY (ONE_US); 
14914 ; 7151 RD_LNG ; i READ DIAG REGISTERS 
14915 ;: arts NIB_PTR = -1; 'RESET THE NIGBLE POINT 
14916 ;: 715 
14917 ;: 7154 do 
14918 ;: 7155 pea*S 'SEARCH FOR GOOD NIBBLES 
p44 8 £138 NI5B_PTR = .NIB_PTR + 1; ' INCREMENT NIGBLE POINTER 
% 3 far 1 a eel C.NIB_PTR] IS_NOT_SET 'TEST THIS NIB IF PROM FLAG NOT SET 
14 3 7160 TST_LNG_WRD (.NIB_PTR, .NIB_PAT. ERR_FLG); 
14 8 7161 
14 3 ay 
14 3 71 until (.ERR_FLG) or (.NIB_PTR eql 9); 
14 3 7164 
14 : 7165 end 
14 3 7166 until (.ERR_FLG) or (.WRD_CNT eql 127); 
14 3 7167 
14 3 7168 end 
14 3 jay 4 until (.PASS_CNT eql 3) or (.ERR_FLG IS_SET ); 'REPEAT UNTIL ALL PAT TESTED OR ERROR FLG GETS SET 
1 s ata 

: 5155 

3 7176 

5 7175 

r} 7171 

. i 

, HR 

3 ris 

3 aa 

3 7184 

3 at 

3 rigs 

3 7188 







ee ——— 


| 


0 
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SEQ 0326 | 
14953 m4 —Dec=1 :26:31  TOPS-20 BLiss-16 v2(212) 
14 ; a eae Fs 93:84:33 Per EAL ESOL Eee (79) 
1695 if .SECTOR_NO eql .LST_ARR + .ARR_INC 'SEE IF WE'RE AT THE LAST BLOCK 
14958 begin 'A GOOD BLK NOT FOUND BEFORE LAST BLK 
1495 E (79, INTER, DUMPER); 1ERROR AND DROP UNIT 
14960 PRINTS (THR_FMT, WRD_14, PHR_10, FNC_15); 
1e5ee DODU (.ML_LON); 
14 : . 
14964 
14965 ENDTST; 
14 
1498 131436 $1729: JSR R1,$SAVES : 7031 
14976 000014 SUB #14,SP 
14975 1$ TRAP = 2 : 
14976 177777 000002 MOV #-1,2(SP) : *,PASS.CNT 
14 CLR R2 t SECTOR.NO 709 
14978 CLR 4(SP) + DONE.FLG 
14 52 28: INC 2(SP) : PASS.CNT 7101 
14980 05 140500 BIS8 #40,aML.REG+40 
138 i Seca 
14 140462 BICB = #7 , AML. REG+40 
14 1 BIS8 R5.am-RE 
14 10 140530 8188 4#10,aML.REG+120 : 71 
14986 05; 3% MOV R2, aL .REG+30 t SECTOR.NO,* 71 
14 177400 140406 MOV aM. .REG+10 : 71 
14988 911600 140410 MOV #10.BUF . aL .REG+20 : 71 
14989 52 mov 2(SP) RS t PASS.CNT,* 71 
ore ys 052576 - ADD 3$(R5) .PC 

e : ~ WORD 

ise oe ie 
14995 05 * WORD 
14996 4$: LR RI : NIB.PAT cay 
14998 52 000017 5$: MOV #17.R1 : *,NIB.PAT rage: 
15000 y 000012 6s: V2. : *,NIB.PAT ap 
15008 000015 7$: MOV #15,R1 t *,NIB.PAT righ 
1 8$: CLR : LB.CNT 71 
15004 9$: MOV R5,-(SP) : LD.CNT,* 7125 
1 MOV R1,-(SP) + NIB.PAT,* 
15006 144260 JSR PC;LD.LNG.WRD 











hist bet Et ibd boat ba bE LL bs 





S 


3ML4 


15$: 


CLR 
DEC 


B18 


ow 
8 


RS 411 
9$ 


i) ee ee eel 
3 oe ar tate 


M177 


———_____—_——_ 


SEQ 0327 
o-pec=1980 08:21:22 Pa: 


LD.CNT 712 
LD.CNT,* 


WRT. CNT 
* ,SSTPP2 


* ,SSTMP1 


i a 


SSTMP 
SSTMP1 
SSTMP2 


a4 


WRT. CNT 
WRT .CNT,* 


SECTOR.NO,* 


IIIAAA 


« ,SSTMP2 
* ,SSTMP1 
SErMp 
SSTMP1 
SSTMP2 

* ,WRD.CNT 
WARD. CNT 

* ,SSTMP2 
* ,SSTPP1 


YIVAYA 
RRR 


SSTMP 
SSTMP1 
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MISCELLANEOUS COD ON SEQ 0328 






1 sML4 —Dec-1980 09:24:31 
} : yaaa ss oot 3 
4 228: DEC RG : SSTMP2 

1 BR 208 

1 1401 135774 238 MOV @ .REG+170,D1. TEMP 

3 140172 135770 MOV aM. .REG+200.D2. TEMP 

j i 135764 MOV art .REG* *E2. TEMP 

1 MOV #1, (SP) : *,NIB.PTR 
1 24$: INC (sP§ + NIB.PTR 

} mov y : NIB.PTR,* 
1 ASR 

1 ASR R 

15 ADD #PD. TEMP,RS 

1 MOV RS,-(SP) 

1 MOV 2(SP) ,=(SP) : NIB.PTR,* 
i BIC fi (SP) 

1 MOV #1,-(SP5 

1 CLR -(§P) 

1 JSR pc ,BLSGT2 

me ge 

1 BNE Bs 

1 MOV (SP) ,=(SP) : NIB.PTR,* 
1 MOV R1,-(SP) : NIB.PAT.* 
15 MOV #16,-(SP) 

1 ADD SP, (SP) : ERR.FLG,* 
4 JSR PC; TST.LNG.WRD 

1 ADD #6. SP 

1 25$: MOV 10(SP) RS : ERR.FLG,* 
1 BIT #1,R5 

1 BNE 268 

1 comp (SP) #11 : NIB.PTR,* 
1 BNE 24$ 

is ae AS , 

i 000177 ow (SP) #177 : WRD.CNT,* 
151 26$: CLR RG ; 

151 000002 000003 (ep (SP) AS : PASS.CNT,* 
151 BNE 73 

13] ef 4 

151 27$: CMP ees, 

151 BNE 318 

15110 28S: ROR RS 3 

1a ag 

1511 BNE 298 

13114 1 000004 MOV #1,4(SP) : *,DONE.FLG 
1511 reed mov G00D . + SECTOR.NO,* 
iaHt9 137520 298: ADD RAS. INC,R2 > *,SECTOR.NO 
15118 1 000002 MOV #~1,2(SP) + *-PASS.CNT 
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151 3sML4 

H : 

151 000004 000001 30S: CMP (SP) ,#1 

151 BEQ 

151 MOV LST.ARR.RS 
151 ADD eg Re 
151 CMP 

151 31$ BEQ 

151 JMP 

151 32$ TRAP 

151 ROR 

151 BHIS % 

151 JMP 

151 33$ ROY LST.ARR.RS 
151 ADD -INC, 

151 CMP 

151 BNE 

151 TRAP 5 

13 -WORD 117 

151 -WORD INTER 

132 WORD 

151 MOV #FNC.15,-(SP) 
151 5 POY #PHR.10,-(SP) 
1 re} 53: MOV MURD.14,-(SP) 
1514 MOV #THR.FMT .-(SP) 
151 MOV #4 ,-(SP) 
1514 MOV aed 

13183 » TRAP 4 

1514 MOV -LUN,RO 
151 >. TRAP 5 

151 TRAP && 

151 53 ADD #12.SP 

151 34$: ADD #14,SP 

15154 RTS PC 

1313 

1 13% 3; Routine Size: 287 words 
13 ; Maximum stack depth per invocation: 17 words 
13168 

izigr 

151 033338 T29:: 

13176 053552 004767 176676 1$: JSR PC,$T29 

15173 053556 1 TRAP 66 


; DONE .FLG,* 


; SECTOR.NO,* 


; SECTOR.NO,* 





33 pec 


-1980 
-1980 


SEQ 0329 
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151 sML4 

151 3 

151 

151 ROR "9 

151 BLO 1 

: ; ; 00020 RTS PC 

151 ; Routine Size: 6 words 

; . : Maximum stack depth per invocation: 0 words 
12189 

15190 ; 7199 !<BLF/PAGE> 








| 
| 
— | 


33-pec=1960 09:31:22 Pas 
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MISCELLANE 


| 
OUS CODING SECTION SEQ 0331 | 
192 ;ML4 —Dec-1 2:24:31 een yA Blis y v2(212) 
138 3 ym pee r+ $334 i353 4.8L1.2 (80) 
1% : 
197 BGNTST; 
139 'e4 






TEST NUMBER: TST 30 
! TEST NAME: REFRESH TIMING TEST 
i Test DESCRIPTION: 


10 
14 TEST THE MEMORY Y MODULES 
ei REFRESH TIMING AND §D CONTROL LOG:C 
i REG BY: 

0 7215 1. WRITING ALL ONES INTO THE 

1 16 | GOOD BLOCK. 

18 z 2. DELAY FOR 2 MS 

5215 20 3. READ THE GOOD BLOCK FOR ONES. 


KEEP COUNT OF BAD NIBBLES 
ENCOUNTERED 


4. ALLOW A BAD NIBBLE THRESHOLD 
OF ay BAD NIBBLES OUT OF THE 
1 NIBBLES TESTED. 


5. IF THRESHOLD is EXCEEDED THEN 
REPORT ERROR AND DROP THE UNIT. 


| IMPLICIT INPUTS: 


PD_TEMP: 
A BIT VECTOR OF NS BITS WHERE 
THE READ PROM DATA IS STORED 
AND ACCESSED FROM. 


SURES US SNUSNSSS 


Be Se Be Be Be Be Ge Ge Ge Ge Ge Bo Se Fe Ge Ge Se Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Be Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge 


meh meh ek ee ed ed a Dy ee weet ee eB eh ce ce eB eB nd wk th ee mh ek eb a eh eB eed eh 8 eb ed ah eh od A a ed mt tn it 





ocal 
TST_PAT, 'TEST PATTERN 
ERR~ CNT. (ERROR COUNT 
ERR~FLG: iERROR FLAG 
5 4 
1 8 
CNT = : 
TST-PAT = ONES: 
5244 MLDT = .TST PAT: ‘LOAD DATA DIAG REGS WITH TST PAT 
o56? MLD2 = .TST PAT; 
5 MLE? = .TSTPAT: 

















CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


DAT_DM_XFER (); 
mLCS1 = write; 


wer We OW from 0 to 127 do 
DE Y (ONE_US); 
DAT ONE; 





g 


CLR_MBUS 
DAT-DM TRORFER 0; 
micS] = read: 
DELAY (TWO_TH_US): 


og’ ag from 0 to 127 do 
PD_TEMP = 
DAT_CLK = : 
DELAY (ONE ous; 
RD_UNG_WRD> 





aur: 


a em ed ce ee me wed ee wc ee wed a me me ng me a me ag a wed ad a ad ed ak ed wd ad rd ad dk nd od ed od ot ot = 2a SS 2s 2 = Lt a 


SUSPU NIU SANS OR ESN USNS SSS NSS 


ENDTST; 
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incr NIB_PTR from 0 to 9 do 
begin 


7284 
7285 
ENDSUB: 
if .ERR_CNT gtr 20 
then in 
Beer (80 QUES? 
PRINTB 5 pare PHR_4, WRD_12, FNC_16, WRD_48); 
popu (.ML_LON); 


$B-pee=1988 O:34:3) ASRS rial £2 i7}?200» 


'SET UP _A_DATA DIAG MODE XFERR 
!DO A WRITE FUNCTION 


'WRITE BLOCK WITH TST PAT 


:SET UP _A_DATA DIAG MODE XFERR 
!DO A READ FUNCTION 

DELAY FOR 2 MS 

!READ THE BLOCK 


'GET THE PROM DATA 
!CLOCK DATA WORD INTO DIAG REG 
'READ THE DIAG REG 
'LOOK AT 10 NIBBLES 


if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); 


!FIND GOOD NIBBLES AND COMPARE THEM 


ree if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1; ! INCREMENT ERROR COUNT IF ERR_FLG IS SET 


'ALLOW 20 NIBBLES TO FAIL 
'ERROR IF GTR 20 
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137410 


137372 


137272 


137352 


$730: 


18: 


4$: 


5$: 
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R1,SSAVES 3 
-(§P) ,=(SP) 
aan 6+40 ; 
R3 

rita 
Rg -arL REGO 
#=1,R6 : *,TST.PAT 
R46, aM. .REG+1 : TST.PAT,* 
R64. aml. REG+ : TST.PAT.* 
R46 aml .REG* : TST.PAT.* 
PC. DAT.DM.XFER : 
#61, @ML.REG : 
R1 + WRD.CNT 
#1 Re 3; *,SSTMP2 
,geLy AS : *,SSTPP1 
2(SP) : SSTPP 

+ $STMP1 
4$ 
4 3: SSTMP2 
#20, @ML .REG+120 : 
R1 t WRD.CNT 
aon 3; WRD.CNT,* 


; *,SSTMP2 
; *,SSTMP1 
; SSTMP1 

; SSTMP2 

; WRD.CNT 


Ss. $STHP2 


y 5 


bare 
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CODING SECTION SEQ 0334 


ML4 Z-Dec-1980 09:24:31 TOPS 
: : -1980 95:51:32 PArd 

054050 01670 126042 MOV SDOLY,R3 3 *,SSTMP1 
054054 00140 BEQ 4$ 
954056 003066 000002 138: CLR = 2¢SP) ; SSTMP 
D406. ‘ 137 3 2 e SSTMP1 
054086 00530 148: EC ; SSTMP2 
ye O70 AC 5768 . BR 7 o 
054072 01 v0 137838 135848 15$: mov SR .REG* 170.01. Tee 
54106 017767 137222 13504 MOV SPE LAEG* 100,65; TEMP 
1541 00500 CLR ; NIB.PTR 
054116 01020" 168: MOV RS : NIB.PTR,* 
0541 5! 00620 ASR 
054122 006203 ASR 

124 00620! ASR 
054106 062703 013120 ADD #PD. TEMP .R3 
t 1 .: ‘ ' eae POV et 
054134 010266 MOV 47 isp) ; NIB.PTR,* 
054136 042716 177770 BIC fi (SP) 
054142 010746 000001 MOV =. #1,,~( SPS 
fates 006767 126764 SSR PC BLSGT2 
Ds ’ yO (UC $6010 TST #1 
ip 16¢ 7 0 Res 
05416 ' D266 R2,-(SP) 3; NIB.PTR,* 
154166 010646 R4.-(SP) ; TST.PAT,* 
054170 012746 000006 #6 ,-(SP) 
054174 060616 SP* (SP) ; ERR.FLG,* 
ip d6000e PC, TST.LNG.WRD 


Bee 
~ 


; ERR.FLG,* 
: ERR.CNT 
; NIB.PTR 
; NIB.PTR,* 


R1 ; WRO.CNT 
R1 4177 ; WRD.CNT,* 


67 3 





SPSgPGRRGEERISGESLIEZE 


177324 
000024 19$: : ERR.CNT,* 


fs 
is 
= 
= 


19768 BN0150 


ag 
rs 
2 
8 


g 
sPq32 
a ae 
S900 0-9 9 cee ee oe 2 


ee 


: 

T 

PA 

: 
| 
J 


SSIES Batt 





: SP,* 


15 words 


RO 
LUN 
SP 
+, 
184 words 


6 words 
3: Maximum stack depth per invocation: 0 words 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
MOV 
TRAP 
ADD 
CMP 
S 
3; Routine Size: 
3; Maximum stack depth per invocation: 


JSR 
TRAP 
ROR 
BLO 
RTS 

; Routine Size 
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1g? 
rs 
ae 
137246 
ae ae 
0064767 177214 
104466 
000207 
7298 !<BLF/PAGE> 
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MISCELLANEOUS CODING SECTION SEQ 0336 


smL6 -1 :26:31 TOPS-20 Bliss-16 v2(212) 
: Be oee= 1880 Oo.S1:32 | PRC aNEAL ES ame SOc e2 x81) 
t 
BGNTST: 
$o4 
i TEST NUMBER: TST 31 
TEST NAME: | ADDRESS COUNTER TEST 
TEST DESCRIPTION: 

TEST THE ABILITY OF THE ADDRESS 

COUNTER TO SUCCESSFULLY COUNT 

FROM BLOCK ZERO THROUGH THE 

DEVICES LAST BLOCK BY: 

1. WRITING THE LAST BLOCK WITH ONES PATTERN. 

2. STARTING AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK UP TO THE 

LAST BLOCK ADRS MINUS ONE. 





READ THE LAST BLOCK FOR ONES AND ERROR IF ZEROES. 
3. pa AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK THROUGH THE LAST 


READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES. 
IMPLICIT INPUTS: 
A GITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 


eae EARS REELS 1S 1 to oy ERE O REE SATAN 
Hee eReRaNen as caaaaa se 


Be Se Be Be Be Ge Ge Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Se Ge Ge Se Se Se Ge Be Be Ge Se Ge Fe Se Ge Se Ge Se Ge Se Se Se Ge Se Ge Ge Ge Se Se Se Se Ge 


em ek ek me ek ek ee me ed ee ee ed ee wed ay we ed ed dk ad wed ng ed ad ad ad ed ed sd wd od td td ot ot 2 = od = SS 4 = © 


54 

54 local 

54 DODU_FLG, 'DROP UNIT FLAG 

5 ERR_FLG, ‘ERROR FLG 

5 CNT. ‘ENDING SECTOR NUMBER 

3 4 8G_PAT; iBACKGROUND PATTERN 

: Con Pe 

5 5000 FLe’= ZERO; 

5 BG PAT = ONES; ‘BACKGROUND PAT OF ONES 

5 1 = .BG PAT: iLOAD DATA DIAGS WITH BG PAT 

5509 j mde = .BG_PAT: 

5510 MLES = .BG PAT: 

5511 DAT _DM = ORE: 'SET DATA DIAG MODE 

3312 _MFER (); iSET UP A LAST BLOCK XFERR 

3313 $ MCsT : write: iDO A WRITE FUNCTION 

3515 iner WRD_CNT from 0 to 127 do ‘WRITE THE LAST BLOCK WITH THE BG PATTERN 
n 

5517 9 DELAY (ONE_US); 

5518 7350 DAT_CLK = ONE; 





a Eee eee 


SE BRU RAST ESE SIORONNS 


TEES 


VWUVIAUT Ww PAM AMI IAAI 
2SSeN 


yale ahr alvabvahrab ab abeab ab ah ahvabrab ahah ab sb abvahval Ww 
UVM 
SEA 


NIN ISS SORE ROR 


me ce ed ee we a wed ee ed ed ed ed dk ed ed et et = nd dn Od a tk a th et ot dt I oh I 2 2 th at Sh I = et a tt 


Ww 
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CODING SECTION SEQ 0337 


m4 3opec=1980 09:31:22 PArMEALEDOL SOLS. BL I-2 (81) 


ji 


{SET DATA DIAG MODE 
a: 2 0; T UP A LAST BLOCK XFERR 
ib A READ FUNCTION 


cil 


DELAY (ONE ous): 
me pesine from 0 to 127 do 'READ THE LAST BLOCK FOR BG PATTERN 
1 PD _ TEMP = .MLPD; 'GET PROM DATA 
DAT_CLK = ONE; 'CLOCK OUT THE DATA WORD 
DELAY (ONE_US); 
|. LNG_WRD; 'READ THE DATA WORD 
incr NIB_PTR from 0 to 9 do 'LOOK AT 10 NIBBLES 
begin 


if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG); 
'FIND GCOD NIBBLES AND COMPARE THEM 
if .ERRFLG IS_SET 'SEE IF ERROR WAS FOUND 


os SPREE ERREE SY Sa Ss 


begin ‘ERROR IF FLG IS SET 
(81, INTER, aDUMPER? 
PRINTS (THR_FMT, WD _13 FNC_22); 
PRINTB (TWO "FMT. FNC -45, Po 3) F 
EXIT_T 
end; 
end; 
end; 
END_CNT = .LST_BLK - 1; 'END AT LAST BLOCK -1 
MLDT = ZEROES: iLOAD DATA DIAG REG WITH COMP BG PAT 
MLD2 = ZEROES: 
MLE2 = ZEROES: 
iner TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 
C 
DA 'SET DATA DIAG MODE 
FI DA = OME: QO: ‘SET UP_A FIRST BLOCK XFERR 
MLCS1"= write; iDO A WRITE FUNCTION 
incr BLK_CNT from 0 to .END_CNT do 'CLOCK THE ADDRESS COUNTER UP TO END_CNT 


incr AOS OMT from 0 to 127 do 
n 
DAT_CLK = ONE; 


B88 


an rR a RNR, at aOR eee Ranta 
10 
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MISCELLANEOUS CODING SECTION SEQ 0338 
1 imL4 -1 :26:31  TOPS-20 Bliss-16 v2(212) 
' : saat ts $5384 :3) PA: <NEALE ¢ 143 2 (81) 
} 3 7403 end; 

1 : 

1 : ; DAT-DA = OMe 'SET DATA DIAG MODE 

1 3 g nee 0; SET UP A LAST BLOCK XFERR 

1558 : mcs iDO A READ FUNCTION 

15588 : 246 8 Y (ONE *08); 

a 3 rant iner vec from 0 to 127 do 'READ THE LAST BLOCK FOR BG PATTERN 
15589 : 741 TEMP = .MLPD: 'GET THE PROM DATA 

15590 : 7416 DaT CLK = ONE; iCLOCK OUT DATA WORD 

15591 : 7415 DELAY (ONE_USS; 

1359¢ : 741 _UNG_WRD> 'READ DATA WORD 

15593 : 741 

15594 ; 7418 incr NIB_PTR from 0 to 9 do 'LOOK AT 10 NIBBLES 

veep? 3 Gah 4 begin 

13597 : 743 if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .8G_PAT. ERR_FLG): 
13599 : 7438 'FIND GOOD NIBBLES AND COMPARE THEM 
15601 : be if .ERR_FLG IS_SET 'SEE IF ERROR WAS FOUND 

Pr 4 3 7426 then 

1 : 7427 begin ‘ERROR IF FLG IS SET 

15604 : 7 E (82, ASYNC, DUMPER); 

15605 : ? PRINTB (THR_FMT, WRD_50, WRD_51, WRD_10); 

13608 3 74 DODU_FLG = ONE; 

15607 ; 7431 end; 

15608 ;: 74. 

15609 ; 74, end; 

15610 ; 74 

15611 : 7435 end: 

12016 3 74 

15613 : 74 END_CNT = .END_CNT + 1; ‘NOW END AT THE LAST BLOCK 

15614 : 7438 8G_PAT = not .BG_PAT: iCOMPLIMENT THE BG PATTERN AND REPEAT 
15615 : 7439 end: 

15616 ; 7440 

15617 : 7441 ENDSUB: 

15618 : 746 

15619 : Co43 if if .DODU_FLG IS_SET ‘DROP THIS UNIT IF DODU_FLG IS_SET 
1 : 7645 

1 3 7 “ee : -ML_LUN); 

iS 3 rae 

1 Z 7448 

13658 7150 ENDTST 

13080 . : 
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5$: 


—Dec-1980 09:24:31 


RD 
== 
ee 


ssap” 
3 % 
z 


an 


mann = men 


TE 
229 
33 


yaa 


823222 


na 
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Bete 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0341 

15763 IML4 —Dec-1980 09:24:31 TOPS 

: -Dec- tél: PA:< 

13re 35-pec-1980 99:51 22 

157 MOV SP -RO : SP,* 

ie ae is 

me Se ! 

1 18$: INC + NIB.PTR 

4 CMP #11 + NIB.PTR,* 

1 ON Ww. CNT 

i ow R2,#177 + WD.CNT,* 

1 MOV LST.BLK, (SP) : *,END.CNT 

1 DEC j + END. CNT 

i CLR aM. .REG+170 ; 

1 CLR -REG+ ; 

1 CLR -REG+ : 

1376¢ CLR : TWICE 

1 136012 19$:  61S8  #40,@ML.REG+40 : 

sey 

j BIC RG 

1 135776 BICB ss #7, AML RE 

i BIS8 = R46. aL .RE 

15768 136042 8188 4#10,aM.REG+120 : 

13769 JSR PC FIRST .BLK.XFER : 

13770 135710 mov #61 2A .REG 1 imi net 

13776 BR 228 

4 208: CLR RG : ADRS.CNT 

1577 136014 21$: 68188  #20,@ML.REG+120 : 

tapos INC RG + ADRS. CNT 

13776 CMP R4,4177 : ADRS.CNT,* 

: One 21 BLK.CNT 

1 228: CMP AY (SP) + BLK.CNT,END.CNT 

4 BLE 208 

4 135710 BIS8 £60,aML.REG+40 : 

1 MOV R4 

1 BIC RG 

1 135672 BI¢B WA .REGS4O 

1 BiSB R4.aML.RE 

1 135740 8188 4#10,aML .REG+120 : 

1 JSR pe Las “BLK. XFER ; 

1 135606 MOV gyt-REG : 

1 MOV #1 : *,SSTMP2 

1 23$:  BEQ 268 

i SDLY.R4 3: *,SSTHP1 

13798 BEQ 5$ 

j 24$: CLR (SP) : SSTMP 

15796 DEC RG : $STMP1 

12 25$ DEC as SSTMP2 

13999 ee ORs 
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7ML4 
5376 36s: CLR R2 
00 13551 : MOV -REG+230,PD. TEMP 
5406 132008 B1S8 #20 -REG+120 
ait MOV ¥ 
4.20 28$:  BEQ 31§ 
az MOV ESDLY.R4 
sae BEQ 
oat 293: CLR 6(SP) 
7K BOBS 
one 308: DEC R3 
4 1 500 31$: MOV @ML .REG*+170,D1. TEMP 
94 5; 133476 MOV wt .REG*200.D2. TEMP 
3 34 133470 MOV @. .REG+160,E2. TEMP 
~ 32$: MOV RS 
ASR 4 
ASR R4 
ASR 4 
BO: ADD #PD.TEMP.R4 
5 MOV R4,-(SP) 
MOV R3,-(SP) 
BIC ee (SP) 
i MOV #1,-(SPS 
CLR -(§P 
BOF JSR PC BLSGT2 
"4. ADD Cal e 
+ TST 
4 BNE 
Be MOV = (SP) 
as MOV R1.-(SP) 
% MOV = #12, = (SP) 
Ra ADD SP, (SP) 
8”. JSR PC. TST.LNG.WRD 
aa ADD #6, SP 
Rae cmp (SP) #1 
BNE 
TRAP 5 
«WORD 122 
;WORD  ASYNC 
-WORD  DUMPER 
MOV MRD. 10,-(SP) 
MOV MRD .51.-(SP) 
MOV #uRD.50,-(SP) 
MOV #THR. FMT ,-(SP) 
MOV #4,-(SP) 
MOV sp .RO 
TRAP 4 
MOV #1,14(SP) 
ADD #12.SP 





z 


SEQ 0342 


33-Dec-1980 09:31:22 Pas 


WD.CNT 7411 


*,SSTMP2 741 
*,SSTMP1 


3s SSTMP 
3; SSTMP1 





SSTMP2 


NIB.PTR 
NIB.PTR,* 


NIB.PTR,* 


NIB.PTR,* 
T.* 


-PAT, 


ERR.FLG,* 


ERR.FLG,* 


SP,* 
* ,DODU.FLG 
NIB.PTR 









ed ond and ad aed ad ed we —) sd nd 


ue ia maccun (a ues 





ac ce ce ed ng ced ce ce ed ced ed ed ed nd ed ed nd ed ed ced ed eed nd ed eed ed 


CPEERE PEE Er pie ir 


TRAP 
TRAP 


ADD 
RTS 


; Routine Size: 
3; Maximum stack 


; Routine Size: 


F 11 
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26% Dw 
~~ ® 
—s 
y 


wr QD 

3 

—_— —s 
» 
— 


aseuez 


376 words 
depth per invocation: 


PC,$T31 
66 


RO 
i$ 
PC 


6 words 


; Maximum stack depth per invocation: 


NIB.PTR,* 


Teel 
TWICE ,* 


; DODU.FLG,* 


33 bec 





-1980 
-1980 


| 
SEQ 0343 | 


09:91:22 
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13018 ; 7451 !<BLF /PAGE> 


33pec=1980 09:91:22 


TOPS=20 Bliss- 
PA: <NEALE 


16 v2(212) 
4.81.2 (81) 





| 
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CZMLABO ML-11 LOGIC TEST 

MISCELLANEOUS CODING SECTION SEQ 0345 
15915 :m4 —Dec-19 26:31 TOPS-20 BLiss-16 V2(212) 
} rat : $5 pec~ 1380 $3334 35 PA: <NEALE 4.BL1.2 (82) | 
15918 ; 74 
1 319 ; reg : 
1 : 7% T; | 
15921 ; 7455 
1 : o fae 
| : 7438 i TEST NUMBER: TST 32 
! : 7458 i TEST NAME: ARRAY MODULE SELECTION TEST 
12 : £46} i TEST DESCRIPTION: 
15929 : 7 i TEST FOR UNIQUE ARRAY MODULE 
15930 : 7464 | SELECTION BY: 
15931 : 7465 i | 
15932 ;: 2466 i 1. WRITING THE RESPECTIVE ARRAY | 
15933 : 7467! MODULE POSITION NUMBER INTO 
159% ; 7468 | THE FIRST GOOD NIBBLE F 
15935 : 7469 | IN THE ARRAY. DO FOR ALL 
159% : 7470 | PRESENT ARRAYS. 
15937 ;: 7471 =~! 
15938 : rare i 2. READ THE ARRAYS FOR THEIR 
15939 : 7473 RESPECTIVE POSTION NUMBERS. 
15940 : 7474 
15941 : 7475 | IMPLICIT INPUTS: | 
126 $ 7476 =! : 
15943 ; 7477 | A GIT VECTOR OF 16 BITS WHERE 
15944 : 7478 | THE READ PROM DATA IS STORED 
15945 : 7479 AND ACCESSED FROM. 
15946 : £480 i 
15947 : 7481 } 10 BUF : 
15948 : 7a8e i A VECTOR OF 256 WORDS WHERE 
15949 : 7 i DATA FOR MBUS READS AND WRITE 
15950 : 7684 | FUNCTION ARE FOUND. 
15951 : 7485 
15 3 7486 !— 
15953 : og 
15954 ; 7 local 
15955 : 7489 WRDS_TSTED, ‘WORDS TESTED 
13996 : 7490 SEL, iARRAY SELECT 
15957 : 7491 FND_GD_NIB, ‘FOUND GOOD NIBBLE 
15958 ; 74 ARR_NUA; ' ARRAY R 
15959 : 749 
15960 : 7494 ARR_SEL = ZEROES; 
13961 : 7499 ARRISEL = .ARR_SEL - .ARR_INC: 'START ARR_SEL BACK ONE ARRAY | 
13368 : 049 incr ARR_CNT from 0 to .OP_NUM_ARR do 'TEST ALL PRESENT ARRAYS | 

é n 
15965 : 7% CLR_MBUS; 
13966 : £300 FND-GD NIB = ZERO: 
15967 ; 1 WROS_TSTED = ZERO: 
15968 : 7 DAT_DBM = ONE: 'SET DATA DIAG MODE 
15969 : 750 MW = not 255; iLOAD WORD COUNT 
} 


i ce 
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CZ7MLABO | 
MISCELLANEOUS CODING SECTION SEQ 0346 | 
| 

1 cML4 —Dec-1 1:26:31 TOPS-20 Bliss-16 V2(212) 

: 3 yeaa ts 1 99384 :3) PA: <NEALE 4.BL1.2 (82) 

15976 ; MLBA = 10_BUF ; ‘LOAD I0 

15975 ;: 7 ARR =~ ARR_SEL + .ARR_INC; i LOOK AT-REXT. ARRA 

4 A 3 MLDA = .ARR_SEL; ;LOAD DSA SITH SEL SELECTED ARRAY AT BLOCK ZERO 

: 3 MLCS1 = write; 'DO A WRITE FUNCTION 

13375 8 e308 do 'THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS 

15980 ; 7510 in 

15961 ; 7511 DELAY (ONE_US); 

15 3 gale PD_TEMP =. . 'GET THE PROM DATA 

13985 : 31 WRDS_TSTED = .WRDS_TSTED + 1; iCOUNT WORDS TESTED 

la : ed incr CNT from 0 to 8 do 'LOOK AT 9 NIBBLES 

15987 ;: 7517 if .PD_TEMP C.CNT] IS_NOT_SET 'FIND A GOOD NIGBLE 

15988 ; 7518 then 

15989 ; 7519 begin 

15990 ; 7520 

15991 ; 7521 case .CNT from 0 to 8 of 'SELECT AND LOAD GOOD NIBBLE WITH ARRAY CNT 

aa. 4 3 75 C set 

15993 ;: 752 

159% ;: 7524 (0) : 

15995 ;: 7525 (MLD1)<0, 4> = .ARR_CNT; 'NIBBLE 0 

15996 : 526 

15997 : 7527 C1] : 

15998 : 7528 (MLD1)<4, 4> = .ARR_CNT; 'NIBBLE 1 

15999 : 75. 

16000 ; 75 C2) : 

16001 ; 7531 (MLD1)<8, 4> = .ARR_CNT; 'NIBBLE 2 

16008 ; Fe39 

1 s 75. (3) : 

16006 ; 7534 (MLD1)<12, 4> = .ARR_CNT; 'NIBBLE 3 

16005 ; 7535 

16006 ; ek [4] : 

16007 ; 75. (MLD2)<0, 4> = .ARR_CNT; 'NIBBLE 4 

16008 ; 7538 

16009 ;: 7539 (5) : 

16010 ; 7540 (MLD2)<4, 4> = .ARR_CNT; 'NIBBLE 5 

16011 ; 7541 

7 34 8 ea (6) : 

16013 ; 754, (MLD2)<8, 4> = .ARR_CNT; 'NIBBLE 6 

16014 ; 7544 

ile : 7346 wis (MLD2)<12 4> ARR_CNT 'NIBBLE 7 

16017 5 754 sad 

16018 ; 7548 (8) : 

16019 ; 7549 (MLE2)<8, 4> = .ARR_CNT; 'NIBBLE 8 

: § lest tes; 

1 g 0336 FND_GD_NIB = ONE; 'SET FOUND GOOD NIBBLE FLG 

1 : 755 exit loop; 'EXIT THE LOOP 

16024 ;: 7554 end; 

1 : 7555 





1 | 
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MISCELLANEOUS CODING SECTION SEQ 0347 | 


16027 smL4 —Dec-1 4: TOPS-20 Bliss- pa ae 
1 SSO Rt CER Ara wi 

1 3 2336 DAT_CLK = ONE; 'CLOCK GOOD NIGBLE INTO MEMORY & GET NXT PROM WRD 
3 7338 until (.FND_GD_NIB IS_SET ) or (.WRDS_TSTED eql 14); 'DO UNTIL FOUND GOOD NIGSLE OR 14 WRDS TSTE 
am F 7560 if .WROS_TSTED eql 14 'IF 14 WORDS TSTED 

: 2 £36) omg in 'THEN ERROR AND EXIT TESTED 

1 3 £366 beer (111, INTER, DUMPER): 

1 ; £364 PRINTB (SEV_FMT, WRD_14, PHR_10, =NC_15, WRD_12, FNC_17, WRD_37, WRD_56); 

1 ; EXIT_TST; 

16040 ; £208 end; 

16041 ; 756 

+ 4 | 3 7568 end; 

160435 ; 1368 

16044 ; 75 ARR_SEL = ZEROES 

toe 5 jelal ARR_ SEL = .ARR_ SEL - .ARR_INC; 'START ARR SEL BACK ONE AGAIN 

1e0c9 3 378 incr ARR_CNT from 0 to .OP_NUPLARR do 'TEST ALL PRESENT ARRAYS 

16048 ; 7574 in 

1e0e5 : o373 CLR_MBUS 

16051 ; 7577 FND_GD_NIB = ZERO; 

16052 ; 7578 DAT_DM = ONE i : SET DATA DIAG MODE 

10088 : 7579 Mw = not ape 1LQAD WORD COUNT 

16054 ; 7580 oe ee 10_BUF i QAD UBUS 

16055 : 7581 ARR_SEL =" ARR SEL + ARR_INC; 'LOOK AT NEXT ARRAY 

16056 ; MLDA = ARR 'LOAD DSA WITH ARRAY SELECT 

7 214 3 MLCS1 = read: 'DO A READ FUNCTION 

16059 ; 7585 'THIS LOOP READS ARRAYS FOR ARRAY NUMBERS 

16060 ; 7586 © begin 

16061 ; 7587 DELAY (ONE_US); 

; ; jes 4 PD_TEMP = .MLPD; 'GET THE PROM DATA 

1enes é fe. incr CNT from 0 to 8 do 'LOOK AT 9 NIBBLES 

os 5 759 if .PD_TEMP C.CNT] IS_NOT_SET 'FIND THE GOOD NIBBLES WHERE ARR NUM IS STORED 
16067 ; 759. then 

16068 ; 759% begin 

1 8 029? DAT_CLK = ONE; 'CLOCK ARRAY WORD OUT 

16071 ; 759 case .CNT from 0 to 8 of 'SELECT AND READ GOOD NIBBLE 

re 5 7598 set 

16075 ; 7599 

16074 ;: 7600 [0] : | 
16075 ; 7601 ARR_NUM = .(MLD1)<0, 4>; 'NIBBLE 0 

16076 : 7608 
16077 ;: 760 [1] : 

16078 ; 7604 ARR_NUM = .(MLD1)<4, 4>; 'NIBBLE 1 

16079 ; 7605 

16080 ; 7 [2] : 


16081 ; 760 ARR_NUM = .(MLD1)<8, 4>; 'NIBBLE 2 
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$5 —Pocn=1900 Oo:6h:31 — TOPS820 BL isge 


(3) : 
ARR_NUM = .(MLD1)<12, 4>; 'NIGBLE 3 
(4) : 
ARR_NUM = .(MLD2)<0, 4>; 'NIBBLE 4 
(5) : 
ARR_NUM = .(MLD2)<4, 4>; 'NIBBLE 5 
(6) : 
ARR_NUM = .(MLD2)<8, 4>; 'NIBBLE 6 
{7] : 
ARR_NUM = .(MLD2)<12, 4>; 'NIBBLE 7 
(8) : 
‘ ARR_NUM = .(MLE2)<8, 4>; 'NIBBLE 8 
es; 
FND_GD_NIB = ONE; 'SET FND GD NIB FLG 
exit loop: 'EXIT LOOP 
end; 
DAT_CLK = ONE; 'CLOCK OUT NEXT PROM LOCATION 


until .FND_GD_NIB IS_SET: 
if .ARR_CNT ~ARR_NUM 
then — y: 


penta 
BRINTB <FOR FMT Who 30, FNC 17, WRD_37, 
PRINTB (FMT_14, .ARRICNT, .ARR_NUM);~ 


ENDSUB; 
end 


'REPEAT UNTIL FOUND THE GOOD NIBBLE 
!SEE IF ARRAY CONTAINS IT'S ARR NUM 
'ERROR IF NOT THERE 

WRD_10); 





SE eee eee aaa 


7%4 


7594 
7495 
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we Bo peewee 99:51 ioe 
000002 MOV OP .NUM.ARR,2(SP) $ 
CLR : ARR.CNT 


JMP 2 
135176 1S: BIS8 @ML .REG+40 : 
MOV R2 
BIC R2 
135160 BICB WML .REG+40 
BISB R2,aML.REG+40 
CLR (SP) : FND.GD.NIB 
135222 Siss #10, aL .REG+120 entanec epee 
138104 MOV 5-400, BL REGSTO ; 
135106 MOV #10.BUF ,amL .REG+20 : 
ADD ARR. INC.RS t *, ARR. SEL 
MOV RS, aL .REG+30 : ARR.SEL,* 
135050 MOV #61 , aL REG : 
2s MOV #1,R1 + *,$$TMP2 
BEQ 6$ 
MOV LSDLY.R2 : *,SSTMP1 
BEQ $ 
4$: CLR 4(SP) : SSTMP 
DEC Re : S$STMP1 
BNE 
5$: bec R1 : SSTMP2 


3$ 
134756 68: MOV FA ARMED IS. TEMP 


INC + WROS.TSTED 
CLR a : CNT 
7$: MOV R2,R1 : CNT,* 
ASR R1 
ASR R1 
ASR R1 
ADD #PD.TEMP,R1 
mov ares CNT 
= é Pal 
BIC #177770, (SP) 
( 
(§p) 
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135034 


135010 


134760 
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14$: 
15$: 
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1 

as 

#177760,R1 

917 Oe -REG*I70 
RI 

Ri 


R1 
R1 


R1 
77417,R1 


ani .REG+170 
R1 aL .REG+170 


RSet 
R1 


#170377 ,R1 
+ alata 


R3,R1 


ARR.CNT,* 


ARR.CNT,* 


: ARR.CNT,* 


ARR.CNT,* 


ARR.CNT,* 


; ARR.CNT,* 


: ARR.CNT,* 


ARR.CNT ,* 


SS —— sy 
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Hoon secre 


ss 
R6.A16 
38 
R4,A16 
157 
INTER 
DUMPER 
MRD. 36,~(SP) 
MRD .37.-(SP) 
#FNC.17.-(SP) 
MO.12,~(SP) 
#FNC.15.=(SP) 
#PHR. 10,-(SP) 
MRD. 14,-(SP) 
#SEV.FT -(SP) 
#10,-(SP5 
oy 
4 
#22,SP 

2(SP) 
28$ 
1$ 
R5 
ARR. INC RS 
OP.NUM. ARR, 2(SP) 


WD 
Ws 
A 


Bec 


ARR.CNT ,* 


*,FND.GD.NIB 
CNT 

CNT ,* 
FND.GD.NIB,* 
WRDS.TSTED,* 


WRDS.TSTED,* 


SEQ 0351 


-1980 09:24:31 
-1980 09:21:22 
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R2,R1 


-REG+170,R3 


Se Se Ge Ge Se Be Se Be 


FND.GD.NIB 


* ,ARR. SEL 
ARR. SEL, * 


* ,SSTMP2 
*,SSTMP1 


S$STMP 
SSTMP1 
SSTMP2 


CNT 
CNT,* 


CNT,* 


CNT,* 


* ,ARR.NUM 





SEQ 0352 


BINS BW 


7601 





ee , ~y 
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SEQ 0353 
16 ZML4 Dec-1980 09:24:31 
xe : ym saat O33 i3e 
16 BR 49 
1 38$: move .REG+170,R3 7 *,ARR.NUM 
1 398: mov -REG+170,R3 7 *,ARR.NUM 
i 40S: mov .REG+170,R3 : *.ARR.NUM 
1 41$: nove SP .REG*200.R3 3 *,ARR.NUM 
16 4 OVB a. .REG+200,R3 ry w ARR .NUM 
16 4 ASR + ARR.NUM 
1¢ ASR : ARR.NUM 
1€ ASR + ARR.NUM 
16 ASR + ARR.NUM 
16379 057¢ BR 
1 5380 0570 448: mov @ML .REG+200,R3 2 *,ARR.NUM 
16 i ‘ 45$ MOV i. .REG+200,R3 Pj * ARR .NUM 
16383 57976 ASR 7 ARR.NUM 
16 M ASR e ARR.NUM 
163 ASR : ARR.NUM 
ue : ASR : ARR.NUM 
16 i 473: MOV @Mi. .REG+160,R3 e * ARR .NUM 
16389 48$: SWAB + ARR.NUM 
1 Ts 493: BIC #177760,R3 e * ,ARR.NUM 
1 MOV #1, (SP) : *,FND.GD.NIB 
1 573 BR 51§ ; 
1 50$: INC > CNT 
1 CMP #10 : CNT,* 
1 - BLE 
1 133726 51$:  B1S8  #20,a@ML.REG+120 : 
1 CoP (sp) a1 + FND.GD.NIB,* 
1 BNE 
1 57354 CMP R4,R3 3 ARR.CNT,ARR.NUM 
16400 BEQ 2¢8 
1 573 TRAP : 
1 py -WORD 123 
1 ;WORD  ASYNC 
164046 0 . WORD R 
16405 MOV MRD. 10,-(SP) : 
1 MOV -37,~( 
1 101 MOV #FNC.17,-(SP) 
1 71 MOV .39,- 
1 MOV #FOR. FMT ,-(SP) 
16410 MOV 7 (SP) 
1641 MOV f 3: SP,* 
16416 TRAP 1 
1641 MOV (SP) : ARR.NUM,* 
16414 MOV R4,-(SP) : ARR.CNT,* 
16415 905119 MOV #FMT.14,-(SP) 
16416 00000: MOV 3, =(SPS 
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IC TEST 
ING SECTI 
1641 SAL4 
: 1 3 
1 1 MOV -RO 
IA cote we be 
1 4 nth) 52$: TRAP $ 
1 & ROM 
1 4 BHIS 54$ 
; & 1 177264 4 a 29s 
1 000002 55$ CMP R4,2(SP) 
164 4 BLE ¢ 
1 0574 res 000006 56$ ADD #6,SP 
1 057476 00020 RTS PC 
164 3; Routine Size: 425 words 
16435 3; Maximum stack depth per invocation: 
16440 
16441 
16445 
16449 057500 T32:: 
16450 827300 006767 176252 1$: JSR PC,$T32 
16451 057504 104466 TRAP 66 
1A3e eles FOR RO 
16453 057510 103 BLO 1$ 
IA 33 057512 000207 RTS PC 
16456 ; Routine Size: 6 word 
16457 > Maximum stack depth eer invocation: 
16462 
16463 
16464 ;: 7648 !<BLF/PAGE> 


18 words 


0 words 


: SP,* 


SEQ 0354 


e-pec=1 980 09:01:22 PA: 


| 
| 
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333ec=1980 09:51:22 PRs NEALEDOL SOL 


' 
BGNTST: 
'e¢ 


TEST NUMBER: TST 33 


TEST NAME: | SEQUENCER EXISTENCE TEST 
TEST DESCRIPTION: 
i TEST SEQUENCER TIMING AMD CONTROL 
LOGIC FOR EXISTENCE BY: 
i 1. FIRST WRITING THE GOOD BLOCK VIA DAT_DM MODE WITH A BACKGROUND 
PATTERN OF ONES. 
i 
2. VIA A MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
i 3. THEN VIA pat DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM 
AGAINST THE BACKGROUND PATTERN 
i RECORD THE NUMBER OF NIBBLES THAT WERE UNCHANGED OR PARTIALLY CHANGED 
BY THE MBUS WIRTE. 
i 4. REPORT A FATAL ERROR AND DROP THIS UNIT IF THE NIBBLES TESTED EQUALS 
THE COUNT OF UNCHANGED NIBBLES. 
i REPORT AN INTERMEDIATE DIAGNOSTIC MESSAGE IF AT LEAST SOME NIBBLES 
WERE CHANGED BY THE MBUS WRITE. 
IMPLICIT INPUTS: 
A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 
! 10 BUF: 
i A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS 
ARE FOUND. 
local 
BG_PAT 'BACK GROUND PATTERN 
SUA iSUM NI ARE 
NIB_TSTED, iNIBBLES TESTED 
ALL “BAD, iALL NIBBLES ARE 
RESOLT; iRESULTS OF 
CLR : 
8G PAT = ONES; 'BACKGROUND EQL ONES 
mD1 = .BG PAT: 'LOAD DATA DIAG REG WITH 8G PAT 









ee 
gs AAO 


ARETE OREOORCODOODEDED 
SESERESES 


SESRS. 
BIS 


16554 
1632? ; 


1 


REREAD PRI DI ERED ANA AR AR AD AE SEER REAR OO Rennes 


7745 


DAT _DM_XFER (); 
MLCS1 = write; 


incr WO_CNT from 0 to 127 do 


n 
DELAY (ONE_US); 
LK = ONE; 


MLCS1 = read: 
DELAY (ONE_US); 


a Se wen Soe re & 


incr NIB_PTR from 0 to 8 do 


if .PD_TEMP C.NIB_PTR] eql ZERO 
then 
nif TSTED = s TSTED + 1; '] 
OR-LNG_WRD (.NIB_PTR, BG. PAT, RESULT); 
if .RESULT<O, 4> eql ZERO 
then 
eALL_BAD + 1 


ALL_BAD = 
else 


F 12 
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3opec=1980 09:81 22 
:SET UP A__DATA DIAG XFERR AT THE GOOD BLOCK 
!DO A WRITE FUNCTION 


!WRITE BLOCK WITH BG PAT 


'SET UP SAME DATA DIAG XFERR 
!DO A READ FUNCTION 


'READ 113 LONG WORDS 
'GET PROM DATA 
!CLOCK OUT THE DATA WORD 
!READ THE DATA WORD 
'LOOK AT 9 NIBBLES 
!FIND GOOD NIBBLE 
COUNT OF NIBBLES TESTED 
'XOR NIBBLE WITH BG PAT 


'SEE IF ALL BITS IN NIBBLE WERE BAD? 
!INCREMENT COUNT IF ALL BAD 


if .RESULT<0, 4> neq %0°17° then SUM_BAD = .SUM_BAD + 1; 


end; 


: SEE IF SOME BITS NIBBLE WERE BAD 
! INCREMENT COUNT IF SOME BAD 


| pes oR BL ged =16 ae 


) 
2 (83) 


SEQ 0356 | 
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MISCELLANEOUS CODING SECTION 





SEQ 0357 
—Dec-1 :26:31 TOPS-20 BLiss-16 v2(212) 
35 pee~ 1380 OST. PA: <NEALE 4.8L1.2 (83) 
| 
7753 | 
if .NIB_TSTED eql .ALL_BAD ‘WHERE ALL NIBBLES XFERR'ED ALL GAD? 
poe then F iERROR IF ALL BAD | 
n j 
eS PeRor (84, SYNC, PUMPER) ; 
£738 PRINTB (SEV FMT, WRD_22, PHR_4, WRD_9, WRD_12, WRD_23. FNC_5, WRD_19); 
775 DODU (.ML_LON); 
7760 DOCLN; 
7761 | 
ge else 
76h if .SUM_BAD gtr ZERO 'SEE IF SEE NIBBLE WERE BAD? | 
£766 begin 'SOME BAD IS OK SO GIVE INTERMEDIATE ERROR 
776 E (85, INTER, DUMPER): | 
7768 PRINTB (SIX_FMT, PHR_4, WRD_9, WRD_12, WRD_23. FNC_5, WRD_19); | 
$133: JSR R1,SSAVES : i 
SUB #10,SP 
133462 BISB #40,aML.REG+40 : 7 
Scat 
BIC RS 
133444 BICB 4s #7, AML. REG+40 
BIS8 sR ann RE 0 
2 MOV #1 ,2(SP : *,BG.PAT 7 
MOV #~1, aM. .REG+170 : 7 
133556 MOV (SE) a. .REG*200 : BG.PAT,* 7 
133530 MOV (SP). @ML .REG+160 : BG.PAT.* 
JSR PC DAT .DM. : 7701 
133336 MOV #61 am. ; 
CLR RO + WD.CNT 7704 
1$: MOV #1,R1 + *,$STMP2 
23: BEQ S$ 
MOV LSDLY.R2 : *,SSTMP1 
BEQ 4$ 
3$: CLR 6(SP) : SSTMP 
DEC R2 : SSTMP1 
BNE 3$ 
4$: DEC RI : SSTMP2 
133416 5$: BISB #20,@ML.REG+120 : 7707 
INC RO + WD.CNT 7704 
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; NIB.PTR,* 


; NIB. TSTED 
; NIB.PTR,* 
; BG.PAT,* 
; RESULT,* 


: RESULT,* 


: ALL.BAD 
; SUM.BAD 
+ NIB.PTR 
+ NIB.PTR.* 


; WD.CNT 
3; WD.CNT,* 


: NIB. TSTED,ALL .BAD 





SEQ 0359 | 


—Dec-1980 09:24:31 
Dec-1980 09:21:22 


Irs 
| 
| 


oe eee 


774 


3 


Rr. 


. 


| 
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1ore 3 

1674 

167 060 MOV hatnated 
16749 O€ TRAP 5 

16 TRAP 44 

16 ADD os¢-SP 

1 BR 2 

16 21$: TST (SP) 

1 BLE ees 

1 ‘ TRAP 

16 -WORD 125 

16 -WORD INTER 

16 WORD R 

16759 O¢ MOV =: MRD. 19, =(SP) 
16760 060 MOV #FNC.5,-(SP) 
16761 MOV MRD.23 .~(SP) 
10766 MOV -12,7(SP) 
16 MOV MURD .9,-(SP) 
16764 MOV #PHR.4,-(SP 
16765 MOV #SIX, FAT .~(SP) 
Joes MOV 27 (SP) 
1676 MOV SP ,RO 

16 TRAP 14 

16 ADD #20.,SP 

16 228: ADD #10,SP 

16771 RTS PC 

1er7e 

16 3; Routine Size: 255 words 
1677s : Maximum stack depth per invocation: 19 words 
16780 

16784 

16788 Cents T33:: 

16789 060512 004767 176776 1$: JSR PC,$T33 
16790 060516 104466 TRAP 66 

16791 tat ROR RO 

yg 4 10 BLO 1$ 

16 000207 RTS PC 

16794 

16795 ; Routine Size: 6 words 
16796 ; Maximum stack depth per invocation: 0 words 





: SUM.BAD 
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SECTION 


! <BLF /PAGE> 


SEQ 0361 


J 


| 
| 


Ee — 
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ane ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 7 
MISCELLANEOUS CODING SECTION 


—s 
sag § 
a 


§ —Dec-1980 09: +> f 


TOPS=-20 Bliss-16 V2(212) 
-Dec-1980 09: PA: <NEALE 4 


-BLI.2 (84) 


SS 


BGNTST; 


SSSS58 


a a a ss 


1o4 

: TEST NUMBER: TST 34 
i TEST NAME: SYNC DATA BUS CONTINUITY TEST (WRITE PATH) 
i TEST DESCRIPTION: 


TEST THE CONTINUITY OF THE 
MODULE WRITE PATH 
DATA BUS BY: 


1. VIA _DA\_DM MODE WRITE A 
BACKGROUND PATTERN OF ONES 
INTO THE GOOD BLOCK. 


2. VIA_MBUS WRITE FUNCTION 
WRITE A ZEROES PATTERN INTO 
THE GOOD BLOCK 


&& 
WONAULSWINO 


3. VIA _DAT_DM MODE READ GOOD 
WIL ES” IN THE GOOD BLOCK FOR 


4. sy! WITH COMPLIMENT 
A AND BACKGROUND PATTERNS. 


i IMPLICIT INPUTS: 


PD_TEMP 

A BIT VECTOR OF rs BITS WHERE 
THE READ a gh = IS STORED 
AND ACCESSED F 

10_BUF 


A VECTOR OF 256 WORDS WHERE 
DATA_FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 
DODU_FLG, 'DROP UNIT FLAG 
8G _PAT, 'BACKGROUND PATTERN 
SULT TS XOR 


me ee ek eB meh ah ed ed a et ed ed ed 8 ed a a ed ad a a a ht ot so a SS st Sa St 


BRERE RGU adae ee cee REee can cmorccamsatoeretS 


Be Be Be Be Se Ge Ge Se Ge Ge Ge Se Ge Be Ge Be Be Se Be Be Be Be Be Ge Ge Be Be Ge Se Se Ge Se Ss Se Se Ge Se Se Se Ge Se Ge Ge Ge Se Ge Ge Se Ge Se Se Ge 


RE RESULTS FROM 
TST_PAT; iTEST PATTERN 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
16865 :ML4 —Dec-1 :26:31 TOPS-20 Bliss-16 V2(212) 
16588 $ $5 ee~ 180 93:39:35 PA: <NEALE 4.BLI.2 (84) 
: 
1 DODU_FLG = ZERO; 
iss BG PAT = ZEROES: 'BG PAT EQL 0°S 
1687) TST_PAT = ONES; iTST PAT EQL 1°S 
1ea78 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
16876 1 in 
16875 : 
1 % : 
168 MLDT = .8G_PAT; 'LOAD DATA DIAG REG WITH 8G PAT 
16879 MLE2 = .BG PAT; 
16880 DAT_DM_XFER (): 'SET UP _A DATA DIAG XFERR AT THE GOOD BLK 
16881 MLCS1 = write; iDO A WRITE FUNCTION 
bend Lo incr WD_CNT from 0 to 127 do 'LOAD BLOCK WITH BG PAT 
Sane oh a 
6886 9g DAT_CLK = ONE; 
6887 7844 : 
7845 
7846 CLR_MBUS; 
7847 BAI~= ONE: 'SET ON FIRST 10 BUF ADRS 
7848 10_BUF = .TST_PAT; FIRST 10_BUF WORD EQL'S TST_PAT 
7849 GD-BLK_XFER (3; iSET UP A GOOD BLOCK XFERR 


AL eam toon 'DO A WRITE FUNCTION 


gen 
ay 
g 


:SET U> A DATA 1 XFERR AT SAME BLOCK 


Se ctran, sun HOHORSEUEUSSIISUECEOREREE SSSR 


ee ce ce ee ee ek ced et ee ed ed ed ed ed ed ed ed ed 2s = 


7854 MLCS1 = read: DO A READ FUNCTI 
7855 DELAY (ONE_US); 
7857 incr W_CNT from 0 to 112 do 'READ 113 LONG WORDS 
6901 7858 A" pbcabae: 
6908 7859 PD_TEMP = .MLPD; 'GET THE PROM DATA 
7860 DAT_CLK = ONE; ‘CLOCK OUT THE DATA WORD 
6904 7861 DELAY (ONE_USS; 
16905 86¢ _WRD: 'READ THE DATA WORD 
16907 7864 incr NIB_PTR from 0 to 8 do 'LOOK AT 9 NIBBLES 
16008 if .PD_TEMP C.NIB_PTR] IS_NOT_SET !FIND GOOD NIBBLES 
1o710 7867 then ai ps i , “pw 
7868 n 
1691¢ Me: 9 ROR LNG WD (.NIB_PTR, .TST_PAT, RESULT): !XOR NIBBLE DATA WITH TST_PAT 
16914 7871 if .RESULT<O, 4> ZERO 'SEE IF EQUAL 
16915 7873 a _ 
| 78 begin 'ERROR IF NEQ 
1eo18 rer ERIN Gr lV Ene oun aren 25, WRD_10, WRD 12, FNC_5) 
16919 7876 PRINTB (FMT_5, .TST_PAT. .RESULT, .NIB_PTR):~ = ~ 








-— > OO _- -- H 






2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE Nt | 
MISCELLANEOUS CODING SECTION SEQ 0364 
1 PLS —Dec-19 :26:31  TOPS-20 Bliss-16 v2(212) 
' 3 yea ts 1 93:84:35 PA: <NEALE 4.BL1.2 (84) 
3 : 7877 DODU_FLG = ONE; 
1 3 rere end 
1 : 
169 3 £880 end 
1 : end; 
169350 ; Take 
1 1 8 ress ENDSUB; 
169 3 738 if .DODU_FLG IS_SET (DROP, THIS WNIT IF DODU IS_SET 
16955 : 7888 then ; 
Py 7889 n 
16937 8 7890 BoBu (.ML_LUND ; 
16938 ; 7891 DOCLN; ‘ 
16959 5 7896 end; 
1g901 : 789% BG_PAT = not .BG_PAT: 'COMPLIMENT BG_PAT 
1694¢ : 7895 TST_PAT = not .TST_PAT: COMPLIMENT TST_PAT AND REPEAT 
1 3 7896 end; 
16944 : 7897 
+974 3 7898 ENDTST: 
16953 004167 123364 $134: JSR R1,$SAVES : 
16954 oep2gs CMP -(SP) ,=(SP) 
16955 06 CLR -(SP) i 3 DODU.FLG 
16956 é \ CLR R1 + BG.PAT 
1 : ise 777 MOV #-1,R2 v 3 *,TST.PAT 
16958 é CLR -(SP) : TWICE 
1 TRAP 2 : 7831 
16960 : 1 132436 BISB #40,aML.REG+40 : 
16961 0¢ 1 MOV but. 
16968 é 1 BIC R5 
ieoet 1 1 14 oe BIsB a7. REG f 
16965 06 77 1 RT cant cREGe 190 3 BG.PAT,* 
16966 77? 132544 MOV 1a. : BG.PAT.* 7835 
Ione Getcle later |Be9 mh RSs ome hate 
16558 — COR ash LR ln on 
__16971 06 70% 000001 2s: mov #1 .R : *,$STMP2 7842 
16973 06 6705 121254 : . i, 
001404 ard * es = ors 





— ee eee ee ae 


cpaseo oe aS MACRO M1113 22-DEC-80 12:16 PAGE Hy 





m4 
”. 000006 4$ SP) 3; SST 
; es H 3; SSTMP1 
5$: bE ; SSTMP2 
: 132406 68: —BISB #20, amL .REGS120 a oe 
; ow 77 ; WD.CNT,« 
132310 Biss f) a REG*40 : 
: BIC i as 
i 132272 HES OL .REG+4 
seen Rov is ” mates + TST.PAT,« 
JSR “BLK.XFER : 
132202 mov 1a RE ; 
73 TsTB AL “RE 
: 132226 B1S8 #40, am REG*40 F 
BIC mI RS | 
: 132210 ie ue Rees | 
: woe pita ! re 
De “ mov Pte “ : *,$STMP2 5 
0¢ 121062 . Ov LSDLY.RS ; *,SSTPPI 
oe 000006 98 CLR (SP) : ssi 
pe pa 3 3 TMP 1 
is 11$: CLR ; WD.CNT 
yess wat mere | 
Ne sos mov ' dc + *,$STMP2 
06 121014 : HOY LSDLY.RS ; * SST 
Oe 000006 148: CLR = 6 (SP) ; SSTMP 
be bak its 3 TMP 1 
De 158: Re ; SSTMP2 
De 16$: MOV  @.REG*170,D1.7 
| MENA Ibe 
Ne CLR Rs rae ; NIB.PTR 


ok Be 








PA: 


33-Dec-1980 09:21:22 


z. 
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Cc 
NG SECTION 








te & = « = « S a 

ey « ae *% o a —_- 2 

i = —-<c< 3 oo a 

s °. ac 3g ~ §3% 2 8 88 BE 

@ @ Qe « . QAKe . an ee 

ray ”m w 

2 = zfe& ee & zee & « Ze SS 
a es e*e se ee ee ce ee eer 


& 3 Bo 53% euicnses ao S05 om o S$ 
2 "yipiga® aes SsgeS=te “diets RI = & 
zoookoseeyreeteaes iit ee ote kersr ose 
SSSSSERLESSSE SE eet wo us 
e 28 





I OOOSERS SLICED SESE ISTES SST ESE SOS TESEE RSG 


OPO EP BF FCF FC CCC CCT FC CF C7 C7 CFF CC CO7C CF CC CC CSCC CS CCC CCC CC SCF e eK 


CZMLABO ML-11 LOGIC TEST 
CODING S 


uJ 
Y 
”" 
~— 
= 








ML-11 LOGIC TEST 


CZMLABO 
MISCELLANEOUS CODING SECTION 


1 
1 
1 
1 
1 
1 
1 
1 
1 


33% 


eres 


ae 4 
2 

oO 

ae 


FEE 


1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
q 
1 
1 
1 


AIIYAYAAAYAYAIYAAVAAVIYIAYIAY 


KARYSVRRROAHVLAVLGKFKAZ 





17714 
00000 


132160 


000001 


000001 
000010 


177054 


! <BLF /PAGE> 


BHIS 


228: COM 


RTS 
3; Routine Size: 


> Maximum stack depth per ” freecat tent 


7T34:: 

1$: JSR 
TRAP 
ROR 
BLO 
RTS 


; Routine Size: 


1 
MACRO M1113 22=DEC-80 12:16 PAGE 380 


232 word 


PC, $734 
66 
RO 
1$ 
PC 
6 word 


24 words 


s 
; Maximum stack depth per invocation: 0 words 


DODU.FLG,* 


BG.PAT 
TST.PAT 
TWICE 
TWICE ,* 





od 


SEQ 0367 | 


22-Dec-1980 09:24:31 T 
2-Dec-1980 09:21:22 PA: 


i 
a 








sth 
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MISCELLANEOUS CODING SECTION 


Wy 


RARUNASSSELETGEERSS 


B3 S333 3833 


YIIIIIIIIIIIIIIIIS 


N 


SIIIIIIIIF 


OWONAULWN—O 


RANISSELSTLERZIS SE 


ck ce ee ed ec a ad ed ce ed ee et ed re ce ce ec ed ed ed ed ed ed ed ad ed ed ed ed ed nd oe nd ot 


SIYIVAYIAVINYYYIAYIVAYIYIYYIIVIYYYIYY 


CISSESRARATLSISISG 





35-Dec-1980 go gt ial TOPS=-20 Bliss- 


{ 
BGNTST; 
44 


TEST NUMBER: TST 35 
TEST NAME: | SYNC DATA BUS CONIINUITY /READ PATH 
i TEST DESCRIPTION: 
TEST THE CONITNUITY OF THE SYNCHRONOUS MODULE READ 
DATA BUS B 
1. VIA MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
2. VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES. 
i 3. REPEAT WITH COMPLIMENT DATA PATTERN. 
i IMPLICIT Inputs: 
i A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


local 
DODU_FLG, 'DROP UNIT FLA 
TST PAT, iTEST PATTERN 
8G_PAT; iBACKGROUND PATTERN 
DODU_FLG = ZERO; 
TST Bar = ONES; 
BG_PAT = ZEROES: 
jner TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 
n 
C ° 
SAI ONE: 'SET ON FIRST 10_BUF ADRS 
10_8UF = .TST_PAT: iFIRST 10 BUF ADRS GET TST PAT 
GD _BLK_XFER CO: iSET UP A GOOD BLOCK Xx 
mtsi = write; iDO A WRITE FUNCTION CORITES THE TST_PAT) 
TIME_OUT_LOOP; 
CLR_MBUS; 
incr 10_CNT from 0 to 255 do ‘LOAD 10_BUF WITH BG PAT 
O_BuF C.IO_CNT) = .BG_PAT; 
FER 0; 'SET UP A GOOD BLOCK XFERR 
ate iDO A READ FUNCTION (READ THE TST PAT) 
TIME “OUT, ne? 


incr IO_CNT from 0 to 255 do 'READ THE I0_BUF FOR TEST PATTERN 


16 
21:22 PA: <NEALE 4.BL1.2 (85) 





| 
EEE 








ML-11 LOGIC TEST 


CZMLABO 
MISCELLANEOUS CODING SECTION 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 


33 


Wn 


Sagas aFRea aS 


RSRTSESE SSDS 


PRRLLSLLRESLERRRRERR nese sees eeseseer ec eseearer en sees 


= 
—y 


ok 


NERERE Ree onseaNaae 


me me ee ch ced meh ccd we ed ee eB ed tt ed eed ed ed 


SES 


S 
oO 
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35pec=1980 09:31:22 PArMEALEDOLSMLG LI? (85) 


—Dec-1 PA: <NEALE 
if .10_BUF [.10_CNTJ neq .TST_PAT 'SEE IF I10_BUF WORD EQLS TST PAT 
begin 'ERROR AND SET DODU_FLG IF NEQ 
PRINTB eeeyS Ha WRD WRD_25, WRD_10, WRD_12, WRD_23, FNC_6, WRD_1 
PRINTB (FMTO2, .TST_ th wor 10. CNT), T. Sr "PA PAT xor .10_BuF at tnt): 


ENDSUB; 
if ee FLG IS_SET 


"EB 


TST PAT = 
PaT = 


131506 


131470 
131456 


131400 


131422 


not .TST_PAT; 
not .BG_PAT; 


!DROP THIS UNIT IF DODU_FLG IS SET 


!COMPLIMENT TST_PAT 
!COMPLIMENT BG_PAT AND REPEAT 


; TST.PAT,* 








B3Z 


BIBS 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
q 
1 
1 
1 
1 
1 
1 , 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
1 
1 
1 
1 4 
1 
1 





sn 24 131404 


011600 
000377 


1342 
st 131304 
131350 


011600 


000032 


4$: 


5$: 


sEqenaee 


a3 
i 


So CPEEEEEEEEE 


ggPqxeasa22z2 
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#7 , QL .REG+4 
2 OL .REG+4 


R2,R3 

R4, 10. BUF (R3) 
W377 
GD.BLK.XFER 

ari REG 


wie gouseaeee 
gee gaSRe 
; aes 


DBD 
coe om ee 





ee 


10. CNT 
10.CNT,* 


*,TST.PAT 


SP,* 


TST.PAT,* 
TST.PAT,* 


; TST.PAT,* 


SP,* 
* ,DODU.FLG 


10. CNT 
I0.CNT,* 


SEQ 0370 


tw same ts 09:24:31 T 
—Dec-1980 09:21:22 PA: 


| 
| 


794 






CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


1 
1 
1 
1 
} 000001 
i 131524 
1 
1 
} 
: 000001 
1 
1 





062100 
100 004767 177356 
104 104466 
106 
110 
062112 


Be REEESauaeeN 


1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





7351 
7352 : 7976 !<BLF/PAGE> 
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BLO 3$ 

CMP (SP) ,#1 
BNE 8$ 

MOV ML.LUN,RO 
TRAP 51 

TRAP G4 

COM R1 

COM R4 

INC R5 

CMP RS #1 
BLE 1$ 

TST (SP) + 
RTS PC 


3; Routine Size: 135 words 
; Maximum stack depth per invocation: 


JSR PC,$T35 
TRAP 66 


ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 
> Maximum stack depth per invocation: 








i 3 ! 
| CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 4,! 
MISCELLANEOUS CODING SECTION SEQ 0372 | 





1 smL4 -Dec-1980 09:24:31 TOPS=-20 Bliss-16 V2(212) 
: 2 3 35 pee~ 1880 89 2:21:22 PA: <NEALE 4.BL1.2 (86) 
| : Fd 3 ja dd H 
1 BY 3 Let BGNTST; 
1 3 7980 
17361 ;: 1 !¢¢ 
} 3 : TEST NUMBER: TST 36 
} ; 3 fase) 7 TEST NAME: RAM BUS ADRS COUNTER TEST /WRITE PATH 
1 g goes i TEST DESCRIPTION: 
1 5 7987 | 
1 s 7988 TEST ABILITY OF THE RAM_BUS ADDRESS 
1 8 7989 i COUNTERS TO LOAD. OAD aP 
: ; oN RAM DURING WRITE FUNCTIONS BY: 
4 3 aaa i es LOneiNe A REPEATING COUNT OF 0 
1 3 7993 TO INTO THE NIBBLES OF THE 
; 4; 7996 FIRST 64 WORDS OF THE I0_BUF. 
17376 ; 799% = 2. VIA MBUS WRITE FUNCTION WRITE 
he 14 : 7997 THE CONTENTS OF THE 10_BUF 
1 3 7998 INTO THE GOOD BLOCK. 
17379 ; 7999 «I 
ee 3 8000 ' 3. VIA DAT_DM READ GOOD NIBBLES IN 
1 3 8001} THE GOOD SLX FOR THE UNBROKEN 
1 8 paid i COUNT OF 63. 
1 3 8003} 
1 $ 8004 ‘ ONCE A BAD NIBBLE IS ENCOUNTERED 
17385 ;: 8005 i MASK THAT NIBBLE FROM FURTHER 
17386 ;: 8006 READS. 
17387 ; 8007: 
17388 ; 8008} 4. REPEAT ~ ying NIBBLES UNTIL 
17389 ;: 8009 113 WORDS ARE READ OR ALL 1 NIBBLES 
17390 ;: 8010 ! ARE MASKE " 
17382 : Sors IMPLICIT INPUTS: 
1oa0e : B018 PD_TEMP 
17395 ;: 15 i 
1 3 1g i A BIT VECTOR OF bs BITS WHERE 
1 é 1 i THE READ PROM a IS STORED 
1 3 8018 AND ACCESSED F 
17399 ;: 8019 
17400 ; 8020 10_BUF 
17401 ; ie A VECTOR OF 256 WORDS WHERE 
1s g i DATA FOR MBUS READS AND WRITE 
17403 ; i FUNCTION ARE FOUND. 
17404 ; e ! 
17405 ; 5 in 
17406 ; 
17407 ; local 
17408 ;: 8028 DODU_FLG, 'DROP UNIT FLAG 


1 
1741 
1 


17 


& 


NENNAES 
~$ tt a at 
=SOOONAUSWN—O 


BERR 


RARRRERE 
BwPBr 


yan 


VNnNw 
FRR 
wn 
w 


cc a ced cd ed ceed ed 8g ed nd ed ce ce ce ed ced ed ed ed ed eed 
NN 


rN 
Es Seater 


i 


ERRRERE 


© Be Se Ge Be Se Be Be Ge Be Be Be Ge Be Se Be Se Se Ge Ge Ge Fe Be Se Ge Ge Ge Ge Se Se Be Ge Fe Ge Ge Ss Se Be Se Se Se Se Se Se Se 


N 
3 


7455 


x 
Ww 
N 
° 


1 
1 
1 
1 
1 
q 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N EE 
oh 
Bete Pete eee @ 


: 


BSS NSuNANISCE CREPE RO RU UN URURESCE SS OF ee: Rem aRURECOES 
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33-56-1980 09:31:22 PRs <NEALESOL SM ¢.BL1 2 (86) 


WRD_CNT ‘WORD COUNT 
NIB IGNORE : bitvector (16), {NIBBLE IGNORE FLAGS 
BAD "NIB. CNT, iBAD NIBBLE COUNT 

PASS_ CNT, ;PASS 

NIB_PAT; iNIBBLE PATTERN 


ee take eke 
WRD_CNT = ZERO; 


incr CNT from 0 to 63 do 


!LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 


iner veg! =CNT from -1 to 11 by 4 do ‘LOAD NIBBLES IN WORD WITH REPEATING COUNTS OF 0-63 
ore -WRD_CNT])<0, 4> = .PAT_CNT + 1; ‘LOAD FIRST NIBBLE IN WORD 
ston BUF <WRD~ CNT <b, > = :PAT-CNT + ¢: iLOAD SECOND NIGBLE IN WORD 
(10_BUF €.WRD-CNTI) “PAT-CNT + 3: iLOAD THIRD NIBBLE IN WORD 
(10) BUF <WRD com cts, y *Y =" .PAT_CNT + 4; iLOAD FORTH NIBBLE IN WORD 
= .WRD_CNT + 'INCREMENT TO NEXT WORD 
CLR_MBUS; 
@ ER (): ‘SET UP A GOOD BLOCK XFERR 
mtsi = write: iDO A WRITE FUNCTION 
Tine OUT_LOOP; 
NIB- IGNORE = ZEROES; 
wy PAT’ * thoes ‘ 
= 
BAD_NIB = ZEROES: 
DAT-DM_RFER (); 'SET UP _A DATA DIAG MODE AT THE GOOD BLOCK 
mLcS1 = read; iDO A READ FUNCTION 
DELAY (ONE. US); 
do ai ‘LOOP UNTIL THE BLOCK IS READ OR 9 BAD NIBBLES FOUND 
PD_TEMP = .MLPD: 'GET THE PROM DATA 
DAT_CLK = ONE; iCLOCK OUT THE DATA WORD 
DELAY (ONE_US); 
RD_LNG_WRD; 'READ THE DATA DIAG REGISTERS 
incr NIB_PTR from 0 to 8 do ‘LOOK AT 9 NIBBLES 
begin 
if .PD_TEM C.NIB_PTR] IS_NOT_SET 'FIND GOOD NIBBLES 
begin 
if .NIB_IGNORE C.NIB_PTR] 1S_NOT_SET 'SEE IF THIS NIBBLE FOUND BAD BEFORE 


begin 


SEQ 0373 | 





CZMLABO ML-11 LOGIC 
MISCELLANEOUS CODING SE 








17 sML4 

17467 ; 

17468 

17469 ;: 8081 
17470 : 

17471 ;: 

17472 : 

17473 : 

174% ; 

17475 : 808 
17476 ; 8088 
17477 ;: 8089 
17478 ; 8090 
17479 ; 8091 
17480 ;: Bo38 
to 3 3 809. 
13088 : a3 
174684 ; 8096 
17485 ; 8097 
17486 : 8098 
17487 ; 8099 
17488 ; 8100 
17489 ; 8101 
17490 ;: a 
17491 ;: ay 
17492 ; 104 
17493 : 8105 
174% ; 3106 
17495 ; 810 
17496 : 8108 
17497 ;: 8109 
17498 ;: gt9 
17499 : 111 
17500 ; sits 
15202 ; S11 
13808 ; 8115 
175064 ; 8116 
17508 

is 114 006167 
1751 162706 
17514 

17515 

1719 ' 
17518 ¥ O16 1 
17519 062140 1 


Say” 
MACRO M1113 22-DEC-80 12:16 PAGE 


TION 
—Dec-19 :24:31 TOPS-20 Bliss-16 v2(212) 
35 pecn 1386 $3384 :35 PA: <NEALE 4.BL1.2 (86) 
TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); ‘TEST THE NIBBLE IF NEVER FOUND BAD 
if ERRFLG 1S_SET 'SEE IF TEST FOUND AN ERROR 
5 !ERROR AND SET DODU_FLG IS SET 
E DAT, DUMPER); 
PRINTB ais ra AAT FNC_18, WRD_50, WRD_10, WRD_12, FNC_5, WRD_19); 
DODU_FLG = ONE; 
end 
end 
else me 'THIS NIBBLE IS BAD 
NIB_IGNORE C.NIB_PTR] = ONE; ‘SET THIS NIBBLE NIB_IGNORE FLAG 
BAD-NIB_CNT = .BAD_NIB_CNT + 1; VINCREMENT BAD NIB COUNT 
end; 
NIB_PAT = .NIB_PAT + 1; ! INCREMENT NIB PAT 
end; 
PASS_CNT = .PASS_CNT + 1; ' INCREMENT PASS COUNT 
until (.PASS_CNT eql 113) or (.BAD_NIB_CNT eql 9); 'REPEAT UNTIL COMPLETE 
ENDSLB; 
if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 
DOBU 
(.ML_LUND ; 
DOCLN: 
ENDTST; 
121776 $136: JSR R1,$SAVES : 
000006 SUB #6, SP 
CLR -(§P) 3 DODU.FLG 
CLR R3 t WRD.CNT 
CLR R2 > CNT 
177777 1$: MOV #-1,RO + *,PAT.CNT 
23: mov R3.RI t WRD.CNT,* 


SEQ 0374 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE bgg 
MISCELLANEOUS CODING SECTION 
1 ZML4 22-Dec-1980 09: 
: ; 22-Dec-1980 09: 
1 011600 ADD #10.BUF ,R1 
} 4 y ; PAT.CNT,* 
1 177760 BIC #177760,R5 
1 000017 BICB = #17, (R15 
1 BISB = RS, (R1) 
1 MOV RO, ; PAT.CNT,* 
1 000002 ADD #2.R5 
ASL 
ASL R5 
ASL RS 
ASL R5 
177617 BIC #177617 RS 
000360 BICB #360, (Ri) 


Ee nasi eee 
RRRERE ig ERRRRRR ERE 





1 
i 

1 

1 

i 

1 

1 MOV RO.RS ; PAT.CNT, 
1 000003 ADD #3.R5 sruniet 
1 SWAB RS 

1 170377 BIC #170377,R5 

i 007400 BIC #7400, (R1) 

1 BIS RS, (Ri) 

1 MOV RO,RS : PAT.CNT,* 
1 ADD #4.R5 

1 SWAB RS 

i ASL RS 

1 ASL RS 

i Ast ORS 

1 007777 BIC #7777 RS 

1 170000 BIC #170000, (R1) 

} rth oe WRD . CNT 

1 000004 ADD #%4,RO + *,PAT.CNT 
1 000013 CMP RO.#13 + PAT.CNT,* 
j 38 BLE 23 

175 INC RZ : CNT 
ess! worst a — 
17368 3s TRAP 2 : 

1 x 130670 BISB #£40,aML.REG+40 : 

17366 MOV R2 

i 4 130652 ste a aL Pr 

1 ies oe Ree, 

17588 990061 130574 MOV #61. -REG : 

1 1 4$ TST ont “REG 

1 ta 130620 ; : 

1B Oe es my BTR 

1 000007 130602 BICB 4s #7, AML. REG*+40 


N, 
a 





Re 


BR 





— 
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ec ce ce eh ce me ce dd ed ed ed ed ed et m= 8d nd ed 
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5$: 
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2 ,aML .REG+40 
(§P) 


R 
4 
R4 
R3 
RS 

PC DAT.DM.XFER 
#71, aM. 

#1,R1 

SOLY,R2 

6(SP) 


z 
3 
; 


S*UNNS=gRESEUMAAM ARTE 
~\ © 
2 
e 


BER3Za22 
gran 


183232 
3 ta 
3 
g 


NIB. IGNORE 
PASS.CNT 
NIB.PAT 
BAD .NIB.CNT 


* ,SSTMP2 


; *,SSTMP1 
 Ssiee1 
; SSTMP2 
: * ,SSTPP2 
; *,SSTMP1 
: SST 
; SSTMP2 


: NIB.PTR 
: NIB.PTR,* 


: NIB. IGNORE,* 


NIB.PTR,* 


NIB.PTR,* 





a 





3 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE No 
MISCELLANEOUS CODING SECTION 
’ IMLS 
17635 , 
1 4626 D05C CLR = 
1 0696 5¢ i" 120256 js PC BLSGT2 
1 062662 06270 10 ADD 6, 
: DEceoe 005 700 i . 
17641 O6s67e 010146 MOV R11, = (SP) : NIB.PTR.* 
1 062674 010346 MOV R3,-(SP) ; NIB.PAT,* 
: 05676 000010 mov =-s«s#10, = (SP) 
1 062706 06061 ADD , (SP) é ERR.FLG,* 
1 962704 006767 133236 JSR —s- PC, TST. LNG. WD 
17646 062710 026627 000010 000001 CMP 10(SP) #1 : ERR.FLG,* 
1 We & 001033 a. ues 
19649 63732 00013¢ WORD 7 ‘ 
17650 062726 010570 -WORD ARR.DAT 
i 069726 0260 .WORD  DUMPER 
j 062730 012766 MOV = #WRD. 19, (SP) : 808 
1 Oe 112746 007774 MOV #FNC.5,~(SP) 
17654 062740 ¢ “e MOV MRD. 12,-(SP) 
17655 06< MOV MURD.10,-(SP) 
17696 062750 012746 MOV MRD. 50,-(SP) 
1 °: 012746 010172 MOV #FNC. 18,-(SP) 
17658 062760 G1¢746 006100 MOV IX, FMT .=(SP) 
1 06276 ‘ : 7 MOV o7(SP) 
17660 062770 010600 MOV SP RO : SP,* 
17661 06¢ 044146 TRAP «(16 
1766¢ we 012766 1 000026 MOV #1,.26(SP) z *,DODU.FLG 
1 D63002 062706 ADD =—_«#20,, SP ; 
17664 063006 062706 14$: ADD #©,5P : 
17665 0630 000414 BR 1 : 807 
Ie 06.30 010264 15$: MOV 7 (SP) e 
1 0650 010146 MOV R1,-(SP) ; NIB.PTR,* 
1 063020 042716 177770 BIC wi (SP) 
1 063026 ¢ 6 000001 MOV #1,-(SP5 
4 ' 53050 11644 MOV (SP) 7 (SP) 
17671 063032 004767 120340 JSR PC -BLSPUZ 
17672 06303 00520 INC ; BAD.NIB.CNT 
1 06504. 962706 000010 ADD #10,SP 3 8095 
17676 0630 D0 15203 16$: INC R3 : NIB.PAT 81 
19676 985058 $3612? 00010 oe fl a0 : NIB:PIR.« nt 
1767? 063054 OO36h2 ae i$ ame on 8103 
17675 06 3064 020427 000161 OP RG wT > PASS.CNT,* 8105 
17681 065066 Oot 4 000011 CAP RST ; BAD.NIB.CNT,* 
17688 Ne BF 00016 177372 JMP 
Ves Restee Messe ms iw 
17686 0631046 10s00g BHIS 18% 
17687 063106 900167 177202 JMP 3$ 









C ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTI 

1 

ie 

1 11 1627 000001 
ies ase a 

17695 i : 1 wee 
1S BE HAE cmon 
Vs BSI. Ske 

re 

: 1 

1770 

17711 

17715 063136 

1er"g 136 004767 176752 
71 142 1 

17718 penis? 

17719 063146 103 

17720 063150 207 

i 

He 

17728 

17729 

17730 ; 8117 !<BLF/PAGE> 
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sML4 

188: CMP (SP) #1 
BNE 
MOV ML.LUN,RO 
TRAP 51 
TRAP 

19$:. ADD #10,SP 
RTS Cc 

3; Routine Size: 265 word 


> Maximum stack denth per ” (ewocattons 


T36:: 


1$: JSR PC $736 
TRAP 66 
ROR 
BLO 1$ 
RTS PC 


3; Routine Size: 6 word 


* Maximum stack depth oar invocation: 


21 words 


0 words 





SEQ 0378 


4:31 


g —Dec-1980 09: 
1:22 


—Dec-1980 09: 
DODU.FLG,* 


811 






4 


BORSRSS Ja VSS Saa saa RaRSO URDU PONS SBSRORASS 


wa 


CZMLABO ML-11 LOG 
MISCELLANEOUS COD 





IC 
ING SECTION 
sML4 


1 
1 ; 

} BGNTST; 
121 

H 

8 


—— 
Ooo 


144 


4 
TEST MACRO M1113 22=DEC-80 12:16 PAGE $5) 


SEQ 0379 


$5 ecw 1389 2:24:31 TOPS-20 Bliss-16 V2(212) 
—Dec-1980 09:21:22 PA: <NEALE 4.BL1.2 (87) 


!DROP UNIT FLAG 
! WORD 
!PATTERN INCREMENT 


: Ss 
! TEMPORARY STORAGE LOCATION 


: i ; TEST NUMBER: TST 37 

: 1 5 TEST NAME: | RAM BUS ADRS COUNTER TEST /READ PATH 
; H TEST DESCRIPTION: 

; 8129 | TEST ABILITY OF RAM/BUS ADRS 

: 8130 | COUNTERS TO LOAD/UNLOAD THE SKIP 

: gi 1} RAM DURING READ FUNCTIONS BY: 

: 8133 1. LOADING A REPEATING COUNT OF 0 
: g1% i TO NTO THE NIBBLES OF THE 
; g135 FIRST 64 WORDS OF THE I0_BUF. 
: 8137 | 2. VIA MBUS WRITE FUNCTION WRITE 
; 8138 | THE CONTENTS OF THE 10_BUF 

: 8139 INTO THE GOOD BLOCK. 

; 141 3. CLEAR OUT THE I0_BUF 

: e108 i 4. VIA MBUS READ FUNCTION READ 
: 8144 | THE GOOD BLOCK FOR THE REPEATING 
: 8145 COUNT OF 0 TO 63. 

: B10? i IMPLICIT INPUTS: 

3 8148 ! 

: 8149 i 10_BUF 

3 8150 ! 

; 8151 A VECTOR OF 256 WORDS WHERE 

: 813¢ i DATA FOR MBUS READS AND WRITE 

: 8133 FUNCTION ARE FOUND. 

: g135 law 

: 8137 Local 

: 158 DODU_FLG., 

; 8159 WRD_ 

: 8160 PAT~ INC. 

; 8161 SIZE , 

: e168 TEMP; ° 

| AG pale 

; 1 FLG = ZERO; 

: S167 WRD_CNT = ZERO; 

: geo incr COUNT from 0 to 63 do 


'LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 






CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


incr COUNT from 0 to 63 do 
iner a wen to 11 by 4 do 


nap tt beh ete 
begin 


SeSsessess 


ce ch ee ce ce cd ee ced ce ce ce ced ce ced ee ed ed ed ed ceed ce ed ag et ed ed ed ed ed ed ed ed ed ed nd ed = 8d ed 


BEE GpemaRecea SR SSOREN SS asa sat aea se seRERES 
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3ML4 

1a 
17791 ;: 170 
1 171 incr PAT_CNT from -1 to 11 by 4 do 
V8 17 in . 
177% 1 (10_BUF [.WRD_CNTJ)<0, 4> = .PAT_CNT + 1; 
17795 17% (10 BUF -WRD~CNT <4, 4> = :PAT~ 
17796 175 (10-BuUF C.WRD-CNT)<8. 4> = :PAT™CNT 
1779 176 (10-BuF C.WRD-CNT <8. 4> = .PAT_CNT 
7798 177 WRD-CNT = .WRB_CNT + 
he44 133 we 
7801 180 GD_BLK_XFER (); 

318) Oe rane: 

B83 snggnene 

8185 incr IO_CNT from 0 to 255 do 

$186 10_BuF €.10_CNT Y ZEROES; 

188 CLR : 

189 G BL XFER QO; 

190 mS1 = re 

191 TIME_OUT_LOOP; 

135 LR 3 

19 . 

8194 

8195 

8196 

8197 

8198 

8199 


then 

i3 DAT, DUMPER) 

13 

1 
Bots end;~ 

i PA 2 IRA 3 

= e 3 
54 me Ps 
WRD_CNT = .WRE_CNT + 1; 

8554 end: 5 


Bo oee= 1980 O9:51522 PAC INEALESOL SPL Ge 1-3 <87) 


!LOAD NIBBLES IN WORD WITH REPEATING COUNT OF 0-63 


;LOAD FIRST NIBBLE IN WORD 
: 'LOAD SECOND NIGBLE ah WORD 
'LOAD THIRD NIBBLE IN 


+ 4 iLOAD FORTH NIBBLE IN WORD 
WORD 


'INCREMENT TO NEXT 


!SET UP _A_GOOD BLOCK XFERR 
!DO A WRITE FUNCTION 


'CLEAR OUT I0_BUF 


!SET UP_A GOOD BLOCK XFERR 
!DO A READ FUNCTION 


‘FIELD SIZE FOR NIBBLES ALWAYS 4 BITS 


!READ 64 WORDS IN I0_BUF 

!READ REPEATING COUNTS OF 0-63 

‘FIELD SELECTOR SELECTS THE FOUR NIBBLES 
!GET A WORD OUT OF J0_BUF 

'READ THE FOUR NIBBLES IN WORD 


if .TEMP<.POS_EXP, .SIZ_EXP> neq (. PAT .CNT + .PAT_I 


COMPARE huieete YU GIT RESPECTIVE 0 -63 CNT 
!ERROR AND SET DODU_FLG IF NEQ 


n 
E 
PRINTB (Pix tar FNC_18, urd _50, WRD_10, WRD_12, FNC_6, WRD_19); 
DODU_FLG = ONE; 


!POINT TO THE NEXT NIBBLE IN WORD 
! INCREMENT THE COUNT 


'GET THE NEXT IO_BUF WORD 


| 
| 
| 
| 
| 







CZMLABO ML-11 LOGI 
MISCELLANEOUS COD! 
sML4 


ES 
SECTION 


ENDSUB; 
iy FLG IS_SET 


eee 


ENDTST; 


130024 


177417 
000360 


000003 


170377 
007400 


PEEESEEEL Ur SF keeeRNBeGs 4 Cuan araeras a oa 
caeeeene : cain 


a me nk cd ced ce ced cd cd cd ed ny eed ceed ced ce wd cee ce nd ed ed ced ced ed ceed ed ed nd ed ns et ceed ed ed ed ed ed ed 0g ed ed od & Ls 8 





120740 $137: 


14 
T MACRO M1113 22-DEC-80 12:16 PAGE B54 


#177617,R5 
#360, (R4) 
R5, (R4) 

*RS 
#3.R5 


#170377 ,R5 
#7400, (R4) 


§ —Dec-19 24:31 
—Dec-19 2:21:22 


!DROP THIS UNIT IF DODU_FLG SET 


Be Be Ge Se Be 


PAT.CNT,* 


PAT.CNT,* 


TOPS=20 Bliss-16 V2(212) 


PA: <NEALE>8L 


SEQ 0381 | 


4.BL1.2 (87) 


8174 


8175 





z 


C 
SCELLANE 


BRCECE ERE EES 


ee ed ce ed ed ed ed ng od = 2d 8 


PEELE 


SOM NOR 
Aaaa 





kak nk ak tk ed ad ad wh ng Od wh 2 oh Od 2 ot Sh 0 ot et I I 2 a ot I St a SI tO 
. 7 . . . . . . - oe > . . . . 


SSBEEREEERREE Gas 


0% 
MACRO M1113. 22-DEC~80 12:16 PAGE 895 


127530 


127530 


127512 


127434 


127460 


127442 
000006 


3ML4 


4$: 
5$: 


2 


B32 
ous 
apie 

aS 


Shap hs 
ss 
SR 


BIZRR 
So 





PAT.CNT,* 


; 10.CNT 
; I0.CNT,* 


; 10.CNT 
; I0.CNT,* 


; *,SIZ.EXP 
WRD. CNT 


OUNT 
* PAT .CNT 
POS 


-EXP 
* PAT. INC 


WRD.CNT,* 


—Dec-1980 09:24:31 
—Dec-1980 09:21:22 


~ 
> 


~ 
zs 





oo 
= 


0000 
—-2 


S 
$s 


w 8&3 g& B&B eee ee 


fs 


Bees 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION SEQ 0383 | 
15388 = Si-pec~1900 Oa:3:3) Jars 
Py c= séts $ 
1 | 
1 Moy 19.BUF (R4) .4(SP) : TEMP | 
17960 9S: mov 4(SP) ,=(SP) : TEP. 507 
’ ea e e * } 
1 MOV 12(SP) ,=(SP) t SIZ.EXP.* 
1 CLR -(SP) | 
i ns ae 
1 MOV R3,R4 : PAT.CNT,* 
Has] ADD ($4) RG + PAT.INC.* 
i CMP RO,RS 
| Pha 198 8211 
17971 «WORD 131 . 
179% “WORD ARR.DAT 
1 “WORD  DUMPER 
17974 MOV MURD.19,-(SP) F 8212 
17975 MOV #FNC.6,-(SP) | 
17976 MOV MRD. 12,-(SP) | 
1 MOV MRD. 10,-(SP) | 
17978 MOV MRD. 50.-(SP) 
i MOV #FNC. 18,-(SP) | 
17980 MOV 1X. FMT ,=(SP) 
1 MOV (SP) 
17388 '~ nated | 
17984 MOV #1,30(SP) : *,DODU.FLG 821 
17985 ADD #20,SP : 821 
17986 ADD #4 ,RS5 : *,POS.EXP 821 
1 INC (SP) : PAT. INC 821 
17988 INC R : CNT 8204 
1 CMP 3 : CNT,* 
17990 BLE 9$ 
17991 INC 2(SP) > WRD.CNT 
17998 ADD #4,R3 + *,PAT.CNT 81 
17998 owe RS.413 : PAT.CNT,* 
17995 INC R1 : COUNT 81 
17996 cw RI 477 > COUNT,* 
17998 TRAP = 67 : 8221 
1 ROR RO 
18000 BLO 4$ 
18001 cmp 10<SP) a1 : DODU.FLG,* 8225 
1oo08 MOV LUN, RO : 
18004 TRAP 5 
18008 11$ Mo te SP 8116 
1800 roe , : 
18007 s PC 
18009 ; Routine Size: 221 words 


» ta) 


TEST MACRO M1113 22=DEC-80 12:16 PAGE HI | 
SECTION SEQ 0384 


: 
83 


18011 sML4 $5 -pec=1500 2246:31 TOPS 
: 1g $ —Dec-1980 09:21:22 PA:< 
Hd: ; Maximum stack depth per invocation: 19 words | 
: 19 

1 

1 064044 137:: 
1 064044 004767 177102 1$: JSR PC $137 : 8230 
18031 666082 90 ROR ORO | 
1 103 BLO 1$ | 
; eater 000207 RTS PC 
18035 ; Routine Size: 6 words 
ion 3; Maximum stack depth per invocation: 0 words 
1804 

18008 3 8233 '<BLF/PAGE> 





aad et ot 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 455 
MISCELLANEOUS CODING SECTION 


33 -pec=1980 09:81:22 


1 
BGNTST: 


bag 

i TEST NUMBER: TST 38 

i TEST NAME: | SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH 
i TEST DESCRIPTION: 


TEST SYNCHRONOUS DATA BUS FOR 
DATA BIT UNIQUENESS BY: 


1. LOADING THE FIRST 16 WORDS IN 
THE 10 BUF WITH A_ SHIFTING 
ZERO IR A FIELD OF ONES PATTERN. 


2. VIA _MBUS WRITE FUNCTION WRITE 
SHIFTING PATTERN THROUGH THE 
DATA BUS AND INTO THE 


t 

4 

| 

i 

1 

{ 

| 

i 

1 

1 

i] 

1 

i] 

1 

! 

1 

i 3. VIA DAT_DM MODE READ THE 
i GOOD BLOCK AND SAVE ALL GOOD 
i NIBBLE DATA, IN THEIR PROPER 
i SEQUENCE, INTO A STACK 
RUCTURE . 

i 4. INTERRIGATE STACK STRUCTURE FOR 
: SHIFTED DATA PATTERN. 

] 

i IMPLICIT INPUTS: 

i PD_TEMP 

i A GIT VECTOR OF 16 BITS WHERE 

THE PROM 

‘ 

' 

' 

‘ 

1 

t 

] 

1 

' 

' 

' 

‘ 

‘ 


READ DATA IS STORED 
AND /CCESSED FROM. 


10_BUF 

A VECTOR OF 256 WORDS WHERE 
DATA _FOR MBUS READS AND WRITE 
FUNCTION ARE FOUND. 


STACK 
A VECTOR OF 198 BYTE LOCATIONS 
WHERE GOOD NIBBL 


LOCATIONS OF A BLOCK. 





4 
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CZMLABO ML-11 
MISCELLANEOUS CODING SECTION SEQ 0386 

18101 :ML4 -Dec-19 :26:31  TOPS=20 BLiss-16 v2(212) 

18108 | § —pec= 1380 O54 i35 PA: <NEALE 4.BL1.2 (88) 

18104 ; _ 

18105 ; 

Isis : local 

18107 : 89 SAV_NIB 'STORES THE SHIFTED BIT PATTERN 

18108 : FLG, ‘DROP UNIT F 

18109 : NI8_BIT, iNIBBLE PATTERN 

18110 : : TST_PAT iTEST PAT TERN 

18111 : ALL“ONES_1, iHOW MANY '17° NIBBLE PATTERN POSITION TO READ 

18116 : ALL“ONES-2, ‘HOW MANY °17° NIBBLE PATTERN POSITION TO READ 

18113 : STK-PTR, iSTACK PO POINTER 

18114 : 82% COUNT: i COUNTER 

18115 ; 

18116 ; 8298 $ 

18117 : CLR_MBUS; | 

18118 : DODU_FLG = ZERO: 

18119 ; 1 TST_PAT = ONE; 'ONE IN A FIELD OF ZEROES | 

1gi21 : asas tner ont from 0 to 15 do ‘WRITE 16 WORDS WITH SHIFTING 0 IN FIELD OF 1°S. | 
Ps n 

fe: Oo onan 
Y = 

rn a | 

18ie7 > 8309 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 

18128 : 8310 mLtS1 = write: WRITE SHIFTING PATTERN THROUGH SYNC BUS 

18129 : 8511 TIME_OUT_LOOP: 

18130 : iF STRIPPER” (21, 8); 'CALL ROUTINE TO STRIP OUT BAD NIGBLE DATA FROM ARRAY WORDS 

18131 : 8313 STK PTR = -1: ‘RESET THE STACK POINTER 

18132 : 8314 WIB_BIT = ONE; i SHIFTING BBLE PAT OF 1 IN FIELD OF O'S 

18133 : 8315 ALL_ONES_1 = ZERO; iREAD NO ‘17° NIBBLE PATTERN ON FIRST PASS 

ie : a3i6 ALL_ONES-2 = 3; 'READ THREE °17° NIBBLE PATTERN ON FIRST PASS 

18136 : 8318 incr BY_FOUR_WRDS from 0 to 3 do 'READ 4 GROUPS OF 4 WORDS 

18137 : 8319 begin 

15139 ase incr BY_ONE_WRD from 0 to 3 do 'READ 4 GROUPS OF 1 WORD 

18140 : 8322 in 

18141 ; 3 c = ZERO: 'CLEAR COUNT 

18148 ; until -COUNT eql .ALL_ONES_1 do 'READ X NUMBER OF ‘17° NIBBLE PAT 
P+ n 

18145 : c = COUNT + 1; ‘INCREMENT COUNT 

18146 : STK_PTR = .STK_PTR + 1; ‘INCREMENT STACK POINTER 

18148 : o if (stack C.STK_PTR]) neq %0°000017" 'COMPARE STACK WITH °17° | 

18150 : n 'ERROR AND SET DODU_FLG IF NEQ 

B18 PRINTB (3 (Six. “ERT We 3, WD T2- FNC_S. WRD_19) | 

1BIes : 8335 PRINTB ( ones Stack Or ence POTRS. .STR_PTR) walltT | 

18154 ;: 8336 DODUFLG” = Wee. 

18155 ; end; 





ateacenataitanipiniammanapedl 
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MISCELLANEOUS CODING SECTION 
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i 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 


RR 
=o 





K 14 
MACRO M1113 22=DEC-80 12:16 PAGE 400 


—Dec-19 4:31 pew yA eis 16 tat 
3p ec=1980 09:51: aL SL 


—Dec-19 1:22 4.BL1.2 (88) 
end; 
STK_PTR = .STK_PTR + 1; ! INCREMENT THE STACK POINTER 
SAV-NIB = ( not .NIB_ BIT) and (%0'000017"); 'GENERATE THE SHIFTED BIT 


de aaa C.STK_PTRJ) neq (.SAV_NIB) !COMPARE STACK TO SHIFTED BIT 
'ERROR AND SET DODU_FLG IF NEQ 


n 
E SYNC, 
PRINT (SIX FAT nT, UD. 83, *wR0_39, PHR_4, WRD_12, FNC_5, WRD_19); 
PRINTS (FMT_ i. »STK PTR); 


PRINTS (FAT .SAV_RIB, stack C.STK_PTRI); 
DODU_FLG = ONE; 
COUNT = ZEROES: ‘CLEAR COUNT 
until - COUNT eql .ALL_ONES_2 do 'READ X NUMBER OF '17° NIBBLE PAT 
n 
C = .COUNT + 1; ' INCREMENT COUNT 
STK_PTR = .STK_PTR + 1; ‘INCREMENT STACK POINTER 
if (stack C.STK_PTR]) neq %0'000017" 'COMPARE STACK POINTER WITH ‘17° 
begin 'ERROR AND SET DODU_FLG IF SET 
PRINTB “Sixt ale WRD_ ORD OS “uRD_39, WRD_12 FNC 5, WRD_19); 
PRINTB ( ONES,~.stack U.STK POTR. STR_PTR) 
_F t aio 
end; 
NIB_BIT = .NIB_BIT*ONE; 'SHIFT THE SHIFTED NIBBLE BIT 
1B_BIT = ONE; 'RESET THE SHIFTED NIBBLE BIT 
ALL_ONES_1 = .ALL_ONES_1 + 1; \READ ONE MORE '17° ERN 
ONES-2 = .ALL~ONES_2 - 1: iREAD ONE LESS '17° PATTERN 
end; 
if .DODU_FiG IS_SET ‘DROP THIS UNIT IF DODU_FLG SET 


sa 
(.ML_LUN); 
DOCLN; 

end; 


| 14 
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C | 
MISCELLANEOUS CODING SECTION SEQ 0388 
18 —Dec-19 2:26:31 TOPS-20 Bliss-16 V2(212) 
© = ec 3 H : e e | 
' 38 D 1980 83 33 22 ~—«wPA:<NEALE 6.BL1.2 (88) | 
18 
18 $138: JSR R1,$SAVES : 82 
18 SUB #12,SP 
18 1$: TRAP 2 ; 
18 127114 BISB #40,@ML.REG+40 : 
15 MOV AL RS 
18 BIC #1 RS 
18 127076 BICB =: #7 , AML. REG*+40 
13 at st — DODU.FLG 
oT: 000006 MOV = #16 (SP) : *,TST.PAT 8301 
1 CLR R46 : CNT 830 
iy 2s yy 94 a z CNT ,* 
1 011600 MOV 6(SP) , 10. BUF (RS) : TST.PAT,* 
1 COM 10.BUF (R5) 
1 ASL 6(SP) : TST.PAT 
16 INC R4 : CNT 
1E CMP R4,417 : CNT,* 
18 BLE 2$ 
1 JSR PC,GD.BLK.XFER : 
18 126754 MOV wo} “aA REG : 831 
1 3$: TSTB “REG+5 
1 BPL 
18 MOV #25.-(SP) ; 831 
18 MOV #10.-(SP) 
is wv ae *,STK.PTR 831 
18 000004 MOV #1,4(SP) : *.NIB.BIT 8314 
18 CLR 10(SP > ALL.ONES. 831 
18 000006 MOV #3,6(SP) + *,ALL.ONES.2 831 
1 CLR RS > BY.FOUR.WRDS 831 
is 5$ tn R : COUNT — te 
18 CNP R3,10(SP) : COUNT,ALL.ONES.1 8325 
i m a 
+E INC R2 t STK.PTR 
1 012612 000017 CMPB ss STACK ((R2) ,#17 + *(STK.PTR),* 
18 BEQ $s 
18 TRAP 20 3 
1é -WORD 1 
1 “WORD SYNC 
1 “WORD  DUMPER 
1 006506 MOV MRD. 19,-(SP) : 8334 
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18 
18 
1 S 

‘ qR35R 06456 1 
oe sin 
18851 geaeoe 000006 
18 oF. 

1 ESS Oose 012612 
18337 0646 
18338 0646 

* 18339 064626 
18 46% 
18 + 
18 566.36 4 
i LL6 " 
1 NLA Es 716 
1838 Oc 00007 
18530 Ge 
' t£¢ 
1B538 : 01261 
18354 O¢ j 
18355 06 004430 
1 
1 f 1 
fod a3 
ie smn 
} 000003 
1 177272 
1 1 
1 10 
i 
} 000003 
1 177236 
18374 
by eg 
18377 © 
18378 177042 
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ZML4 
TRAP = ‘14 
MOV #1,R1 
ADD #32,SP 

8$: CLR 

9$: CMP 6(SP) 
BEQ 1 
INC 
INC R2 

000017 ore po M17 

TRAP 
"Gono 33% 
[WORD SYNC 
“WORD  DUMPER 
MOV MRD. 19,-(SP) 
MOV #FNC.5,—(SP) 
PY MRD. 12,-(SP) 
MOV ~$5=(SP) 
MOV °39,-(SP) 
MOV -23,~(SP) 
MOV IX. FMT ,=(SP) 
MOV »~(SP) 
MOV * 
TRAP 
MOV R2, (SP) 
CLR =(SP) 
MOVB = STACK(R2),, (SP) 
MOV #1,-(SP) 
MOV #FMT.5,-(SP) 
MOV #4,-(SP) 
MOV SP.RO 
ae 
ADD #30,SP 
BR 93 

10$: ASL 4(SP) 
INC RS 
CaP R5,A3 
BGT 11$ 
JMP 5$ 

000004 11%: MOV #1,4(SP) 

INC 10(SP) 
DEC 6(SP) 
INC R4 
CMP R443 
BGT 12$ 
JMP 4$ 

12$: CMP (SP)+, (SP)+ 
TRAP 6 
ROR 
BHIS 1 
JMP 13 


Bo oeew 1580 99; 


; *,DODU.FLG 


COUNT 
COUNT ,ALL .ONES.2 


STK.PTR 
*(STK.PTR) ,* 


SP,* 
STK.PTR,* 
*(STK.PTR) ,* 


. SP,* 


* ,DODU.FLG 


NIB.BIT 
BY .ONE .WRD 
BY.ONE .WRD,* 


:31 
:22 


SEQ 0390 





; 
: 


Bans 


«ig 





x 


es 

os 

4 
t*. 

4.4 


} 





Bt tn a ht 


] 

1 

1 

by ad 

18405 065050 
1840 

18408 065054 
18409 065056 
18410 065060 
18411 065062 
MF od 

1841 

18414 

18419 

18420 

18421 ; 
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ota 


8390 


126542 


000012 


177004 
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3ML4 

138: DEC R1 
BNE 14$ 
MOV ML .LUN,RO 
TRAP 51 
TRAP 44 

148: ADD #12,SP 
RTS PC 


3; Routine Size: 252 word 


> Maximum stack denth per ” invocation: 


T38:: 
1$: JSR PC, $738 
TRAP 66 
ROR 
BLO 1$ 
RTS PC 


3; Routine Size: 6 words 


> Maximum stack depth per invocation: 


26 words 


0 words 


3 


—Dec-1980 09: 
—Dec-1980 09: 


4:31 


722 













Pte) 
BS 
i 
83 
E° 
pat 
5 


5 
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1 sML4 —Dec-1980 09:24:31 TOPS-20 Bliss-16 V2(212) 
: 3 ye ae rs $3 :3ti33 PA: <NEALEDBL 3ML¢.BL 1.2 (89) 
$= 3 a 
1 3 § BGNTST; 
1 3 9 
1 : §e4 
18630 i TEST NUMBER: TST 39 
1% é : TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/READ PATH 
94 3 rHs4 ' TEST DESCRIPTION: 
1 5S: $ TEST HRONOUS DATA BUS READ 
1eAes 3 8401 : PATH FOR DATA BIT UNIQUENESS BY: 
18438 ; rh ' 1. LOADING THE FIRST 16 WORDS IN THE IO0_BUF WITH A SHIFTING 
Mb ered 3 Bebe : ZERO IN A FIELD OF ONES PATTERN. 
18441 ; ase ' 2. VIA MBUS WRITE FUNCTION WRITE SHIFTING PATTERN INTO THE GOOD BLOCK. 
eee 3 8407 ! 
18443 ; 8408 =! 3. CLEAR THE I0_BUF. 
18444 ;: 8409! 
18445 : 8410 ! 4. VIA MBUS READ FUNCTION f°/S THE SHIFTING PATTERN THROUGH THE 
18446 ;: 8411 ! READ PATH. 
18447 : sig ! 
18448 : 841 $ 5. INTERIGATE THE I0_BUF FOR THE SHIFTING PATTERN. 
18449 ;: 8414 ! 
18450 ; 8415 ! IMPLICIT INPUTS: 
18451 ; 8416 ! BUF 
1 ; +9344 : A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION ARD FOUND. 
18456 ;: £215 
18455 ; 8420 local 
18456 ; os DODU_FLG, 'DROP UNIT FLAG 
18457 ;: 84 TST_PAT; 'TEST PATTERN 
1ga59 otSe CLR 
18460 ; SoU fre = ZERO; 
LS xd 3 93 TST_PAT = ONE; 'ONE IN A FIELD OF ZEROES 
teas 3 94 incr moet from 0 to 15 do ‘WRITE 16 WORDS WITH SHIFTED 0 IN A FIELD OF 1°S 
8464 ;: n 
rn : Be 1 Sy pars ter para. n 
ers] 3 = .TST_PAT*ONE; 
18467 ; 84 end; 
18468 ; 94 
18469 ; GD FER (); 'SET UP A GOOD BLOCK XFERR 
18470 ; o 5 MCS] = write; 'WRITE SHIFTING PATTERN 
18471 ; TIME_OUT_LOOP; 
Hh 9364 3 84 3 
18473 ; 8438 
18474 ;: 8439 incr CNT from 0 to 15 do !CLEAR OUT THE I0_BUF 
18475 ; 8440 10_BUF C.CNTJ = ZEROES; 
Hb fh 3 8441 
18477 ; 8442 CLR_MBUS; 





SEQ 0392 






dD 15 
ML-1 S TEST MACRO M1113 22=DEC-80 12:16 PAGE 406 


NG SECTION SEQ 0393 


= 
or 
S8 


MISCE 


; 
: 


79 :ML4 -Dec-1 2:24:31 TOPS-20 Bliss-16 V2(212) 
18480 : 33 bec~1980 93:34:23 PA: <NEALE 4.BL1.2 (89) | 
1 : B4as GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR | 
1 3 4 mits = read: iREAD SHIFTING PATTERN THROUGH SYNC BUS 
ie : TST_PAT = ONE: !SHIFTING PATTERN | 
18487 : incr CNT from 0 to 15 do 'READ I0_BUF FOR SHIFTING 0 IN FIELD OF 1°S 
18488 ; begin 
18489 : 8450 | 
18490 : B45] if .10_BUF C.CNT) neq ( not .TST_PAT) 'COMPARE I0_BUF TO SHIFTED PAT 
18491 : 2¢ then 
1849¢ ; 845 begin 'ERROR AND SET DODU_FLG IF NEQ 
18493 : 8454 E (93, SYNC, DUMPER); 

1849% ; 8455 PRINTB (FIV_FMT, WRD_23, FNC_6, WRD_19, WRD_39, PHR_4); 

18495 : 8456 PRINTB (FMT-2, ( not .TST_PAT), .10~BUF C.CNTJ. ( not .TST_PAT xor .10_BUF C.CNUJ)): 

184% : 8457 DODU_FLG = ONE; 

18497 : 8458 3 
18498 : 8459 

18499 ; 8460 TST_PAT = .TST_PAT“ONE; 'SHIFT THE PATTERN AND REPEAT 
18500 : 8461 end: 

18501 ; ores 

ye 4 3 ENDSUB; 

18 s 8464 

18504 : 8465 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS_SET 
18505 ;: 8466 then 

18506 : 8467 begin 

18507 : 8468 (.ML_LUND ; 

18508 ; 8469 DOCLN: 

18509 ; 8470 end; 

18510 : 8471 

18911 3 8472 ENDTST: 

18519 065064 004167 117026 $739: JSR R1,SSAVES : 

18520 065070 152 000040 126116 B1S8 #40,aML.REG+40 : 

18521 065076 016705 1 MOV ML RS 

1 1 1 BIC we RS 

1 106 1 000007 126100 BICB = #7 , AML..REG+40 

1 114 126074 BISB R5,aML.REG+40 

1 1 : DODU.FLG 8425 
1 1 000001 #1R4 > *,TST.PAT 

1 1 CLR RO : CNT 84 
1 1 1$: MOV RO.R1 : CNT.* 84 
1 1 1 ASL R1 

4 065134 010461 011600 MOV R4, 10. BUF (R1) : TST.PAT,* 

1 065140 005161 011600 COM 10. BUF (R1) 

18532 065144 006304 ASL RS : TST.PAT 8431 


SSS. 











; 
83 
sae 


ed ced a ed ad ed ae eed 


peer 





cc ce et cd ce cee ed ce ed ced eh ee ce ce eed ced ce ed ced ce ced ee ad ceed ced ed ed ed ed ed eed ed eed od ed ed 


ERRUSER ER Ia SUSAN Ieee eREROR 
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125764 


125764 


125746 


125670 


23: 
3$: 
4$: 


5$: 


CEREEEEE SLL 


oow 
ot bet 
A-OO 


33a 
= 
N 


zye 
Sigh 
oR 
m 
2» 


a 
8 


SBPEZBS2Z3~y 
3% 
a: 
se 
g 





SEQ 0394 





$6 -poc~1508 09:24:31 
2-Dec-1980 09:21:22 
; CNT 
3; CNT,* 
: CNT 
; CNT,* 
3; CNT 
; CNT,* 
; *,TST.PAT 
3 CNT 
; CNT,* 8451 
; TST.PAT,* 
8454) 
ie 
| 
| 
| 
; SP.* | 
8456 
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MISCELLANEOUS CODING SECTION SEQ 0395 
1 3ML4 oe sated bs 09:24:31 TOPS 
: : —Dec-1980 09:21:22 PA:< 
4 MOV (R3) ,-(SP) 
1 MOV R1,-(SP) 
1 004266 MOV #FAT.2,-(SP) 
1 000004 MOV #4,~(SP) 
1 MOV SP,RO : SP,* 
1 TRAP 14 
4 000001 MOV #1,R5 3; *,DODU.FLG 845 
1 000026 ADD #26,SP : 845 
1 7$ ASL RS : TST.PAT 
1 INC Re 3 CNT 
; 000017 44 aha : CNT,* | 
18608 fap Og? : 8461 
iene ROR RO 
1860) BLO 3$ 
18608 DEC = sR ; DODU.FLG 8465 
1 BNE 8$ 
18610 126110 MOV ML.LUN,RO : 8468 
1 m 2 
ise 8$: RTS PC 3 8389 
18614 
18615 3; Routine Size: 133 word 
eens + Maximum stack depth per  domncat tens 17 words 
My wa 
18630 065476 T39:: 
18631 065476 006767 177362 1$: JSR PC,$T39 ; 8470 
1 065502 104466 TRAP 66 
1 065504 006000 ROR RO 
1 065506 103773 BLO 1$ 
ieee 065510 000207 RTS PC 
18637 ; Routine Size: 6 words 
18638 > Maximum stack depth per invocation: 0 words 
18643 ; 8473 '<BLF/PAGE> 
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MISCELLANEOUS CODING SECTION SEQ 0396 
18645 :ML4 22-Dec-1980 09 26:31 TOPs-20 Bliss-16 v2(212) 
18646 : —Dec-1980 09:21:22 <NEALE>BL3ML4.BL1.2 (90) 
1864 
18648 ; 8474! 
18649 : 8475 
18650 ; 8476 BGNTST; 
18651 : 8477 
19038 $ on78 $44 
18653 : 79 | TEST NUMBER: TST 40 
18654 : 8480 
18655 : 8481 | TEST NAME: | ARRAY ADDRESS MUX TEST 
18656 ; goes ! 
18657 : i TEST DESCRIPTION: 
18658 ; 8484 
18659 : 8485 TEST FOR UNIQUE MOS RAM ROW 
18660 : 8486 | AND COLUMN ADDRESSING BY: 
18661 : 8487 | 
18662 : 8488 1. FIRST FINDING A ERROR FREE 
1 : 8489 | 16K OR 64K CHUNK OF MEMORY. 
18664 : 8490 THIS REPRESENTS ONE ROW OF 
18665 : 8491 | EITHER 16K OR 64K MOS RAMS. 
18666 ; 8492 =! 
18667 : 8493 I 2. WRITE A BACKGROUND OF ALL 
18668 : 8494 ONES INTO THE GOOD CHUNK 
18669 : 8495 i 
18670 : 8% 3. WRITE ZEROES INTO THE FIRST 
18671 : 8497 | BLOCK OF THE GOOD CHUNK. 
18672 ; 8498 =! 
18673 : 8499 «I 4. READ REMAINING BLOCKS IN 
18674 : 8500! GOOD CHUNK FOR ONES. 
18675 : 8501 |! 
18676 : 8502 
18677 : 8503 ‘| IMPLICIT INPUTS: 
18678 ;: 85046! 
18679 : 8505 i 10_BUF 
18680 : 8506! 
18681 : 8507 A VECTOR OF “356 WORDS 
18682 : 8508 WHERE DATA FOR MBUS 
1 : 8509 READ AND WRITE TRANSFERS 
18684 : 8510 | CAN BE FOUND. 
18685 : 8511 i 
18686 : 851 
ret : ee12 vom ADRS 'DSA ADRS COUNTER 
18689 : 8513 FND~GD_CHK; iFOUND GOOD 16K/64K CHUNK FLAG 
18691 : 8517 10 BUF = ONES; ‘LOAD FIRST 10 BUF WORD WITH ONES 
1 : 8518 DSA_ADRS = -.RAS_INC; iREST DSA COUNT 
18098 : 8519 FND_GD_CHK = ZERO; i 
186% : 8520 
18695 : 8521 do 'DO UNTIL FOUND GOOD CHUNK OR LBT 
18696 : 852 in 
18697 : 85 CLR_MBUS 
18698 : 8524 BAI~= ONE; 'SET ON FIRST 10 BUF WORD 
18699 : 8525 ECC_DIS = ONE: iDISABLE ECC 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0397 


| 





18701 :ML4 —Dec-19 :24:31  TOPS-20 Bliss-16 V2(212) | 
\s : a ee r+ 93 1:22  PA:<NEALE>BL3ML4.BL1.2 (90) 

18704 ; 5 DSA_ADRS = .DSA_ADRS + .RAS_INC; ' INCREMENT DSA ADRS COUNTER 

18705 : 5 MWC = .W_C SIZE; 116K OR 64K WORDS 

18706 : 8528 = 10 B0F; ‘LOAD UBUS ADRS 

18707 : 85 DA = .DSA_, ‘LOAD DSA ADRS 

18708 ; 85 FUNC = write; 'DO A WRITE FUNCTION 

1B : $2 1 TIME_OUT_LOOP; 

18711 : 85 if .SC IS_NOT_SET 'DID XFERR CAUSE AN SC 

erg : 85 hen 

187135 ; 8535 begin 'XFERR WAS OK 

18714 : 85 MLWC = .W_C SIZE; 'LOAD WORD COUNT | 
18715 : 853 MLBA = 10 BOF: 'LOAD UBUS ADRS | 
18716 : 8538 MLDA = .DSA_ADRS; ‘LOAD DSA ADRS 

18717 ; 8539 ML_FUNC = WRT_CHK; 'DO A WRITE CHECK FUNCTION 
18718 : 8540 TIME_OUT_LOOP; 
18719 : 8541 | 
18720 : 854 if .SC IS_NOT_SET 'IS THIS CHUNK GOOD 
18721 : 854 then | 
18728 : 8544 FND_GD_CHK = ONE; 'YES SET FLG 
18 3 8545 
18724 ;: 8546 end 
18725 ; 8547 

18726 : 8548 end 

187e? : 8349 until (.FND_GD_CHK IS_SET ) or (.DSA_ADRS eql .LST_ARR + .ARR_INC); 

18729 : 8551 'REPEAT UNTIL FOUND GOOD CHUNCK OR AT LBT 

18731 : 8553 if .DSA_ADRS eql .LST_ARR + .ARR_INC 

18732 : 8554 then 

18733 : 8555 begin 

18734 : 8556 E (111, INTER, DUMPER): 

18735 ; 8557 PRINTB (FIV_FMT, FNC_13, FNC_17, WRD_50, WRD_60, WRD_5S6): 

18736 : 8558 PRI (THR FMT. » PHR_10, FNC~ 

18737 ;: 8559 DODU (.ML_LON); 

18738 : 8560 DOCLN; 

18739 : 8561 end 

18740 : 8362 else 'A GOOD CHUNCK WAS FOUND CONTINUE TEST 

18741 ; 8 bogtn 

18742 : 8564 CLR_MBUS 

18743 ; 8565 BAI = 3 

18744 : 8566 ECC_DIS = ONE; ‘DISABLE ECC 

18745 : 856 = ZEROES; iFIRST BLOCK IN CHUNCK GETS ZEROES 

18746 : 8568 <DSA_ADR : iLOAD DSA 

18747 : 8569 MLWC = not 255; ‘LOAD WORD COUNT 

18748 : 8570 MLBA = 10 'LOAD UBUS ADRS 

18749 : 8571 ML FUNC = write: 'DO A WRITE FUNCTION 

18750 : 8978 TIME _OUT_LOOP; 

18751 : 85 CLR_ABUS? 

18752 : 8574 = ONE; 

18753 : 8575 10_BUF = ONES; 'READ REMAINING BLOCKS FOR ONES 

18754 ; 8576 ECT DIS = ONE: 

18755 : 8577 MLDA = .DSA_ADRS + 1; 'LOAD DSA WITH NEXT DSA INCREMENT 
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a ed eed eh 


1 

771 
18778 
1 

777 
ere! 
18786 
18787 
18788 
18789 
18790 
18792 
18798 
18794 
py ac} 
18797 
18798 
by <4 
y= 
1ee08 
18804 
—_ 
18807 
18808 
= '¢4 





& 
° 


177777 +=124054 


000040 125452 


1 
: 7 125434 
10 125422 
: 125474 
125312 125352 
on) 125354 
: 125322 


125314 

100000 125300 
40 133300 

01 3506 125302 
125250 
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TOPS=20 Bliss-16 V2(212) 


UBUS ADRS 
1LOAD WORD COUNT WITH LESS ONE BLOCK 
'DO A WRITE CHECK FUNCTION 

‘WERE ANY BITS DISTURBED 
ac 'ERROR IF WRITE CHECK FOUND BAD DATA 
WRd-50. WRD_60, WRD_14); 


Be Pe Pe Be Ge Be 


W.C. SIZE, am .REG+10 
G+ 


#100000, am .REG 
W.C.SIZE,@ML.REG+10 
#10.BUF ,@ML .REG+ 
Ream REG* 30 

#77 ,@AL.REG 








SEQ 0399 
eed 
PA 








7 
| 
| 

aS 
ard 
aS 
56 2 8 , 2 
| se 68 OB ©. 8 2 
| 
- a oF 
a w eaeaas ned ; $8 git 
¥ m6 86fe fURS Bee a ghey 2 ges a 
< o+ 8 . . 8 . ~ 7a 4 
: : se ee itoece 
2 | REE og Se Gusi2 geseve 2% Rekeateages 
w EkneecentssenEsen nEbsesy Sedoreeseeneenskeleeteeusels 
& 
&b B32 a 28> 38383 
: nie aerate SADR aes 
cee ¢) S : 
= 
a tea a 5 # 3% ES 
| = - = 7 ae 
5885582 xx x goyes ses 8 g 
Rife & 258s cl ce ae 
REEL SBS SEsE ts —— seeeeegs Ee SSS 
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MISCELLANEOUS CODING SECTION SEQ 0400 | 





18868 ZML4 32-Dec-1980 09:24:31 TOPS 

: 3 —Dec-1980 09:21:22 PA:< 

1 124746 BICB =: #77, MAL. REG : 8571 

1 12474 BIS8 «#61. ;REG 

1 : TSTB 0s @ML.REG* 

: BLS | 

1 124764 BISB #£60,a@ML.REG+40 : 8572 

1 MOV ma bur RI 

1 124746 te aml ReG+40 

iss eer Mae a7 

1 133313 MOV #~1.10.BUF ; 

Veet 125000 BISB r WAL -REG+120 pale 857 
° e . * 

1 INC 

18885 MOV R1,a@ML .REG+ 

18896 124662 MOV #10.BUF ,aML .REG+20 : 85 

} mov W. 5S1ZE. : BS 

18859 =: MOV Re,@A -REG+10 

18890 12 BI1CB aL. ; 8 

4 124612 “ B18 #51. a0. REG | 

5 , BPL : 

188% 124636 BT #40000 ,@ML.REG+40 : 8 

18896 TRAP ss «55 : 8 

1 .WORD 160 

\eoo0 “WORD UPPER 

18900 MOV MRD. 14,-(SP) ; 8 

18901 MOV -60,~($P) 

1a008 OY mene 1? =P) | 

18904 MOV #FOR. FMT ,-(SP) 

my eA ss 

1 wv ie REG+30, (SP) ats - 

18909 DEC (SP) 5 . 

18910 MOV #EMT.9,~-(SP) | 

18911 MOV #2,~(SP) | 

19916 MOV SP-RO > SP.* 

1891 TRAP ‘14 

18914 MOV ML.LUN,RO : 8589 

18915 TRAP «51 

18716 TRAP = & 

1p018 3: ws pee ae 

18919 : : | 

18920 : Routine Size: 245 words : 

18921 3; Maximum stack depth per invocation: 14 words 
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1 
1 
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tb owt od od od 
BAL 


PIREEEEESES 





ef 






LOGIC TEST 


SE 


066476 000207 


8596 


177022 
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T40:: 


18: JSR PC,$T40 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 


> Maximum stack depth per invocation: 


0 words 


SEQ 0401 


J 


ML-11 LOGIC TEST 


CZMLABO 
MISCELLANEOUS CODING SECTION 
smL4 


ed DD 


SSEEEROSORS EGS 


eed ak ed ad et od 5 od I od od 


ER EERERE 
BSSSSS8 


= 


td od od ot = 2 = 


REAPER EE 


SEReSSERECEU SHINEE 


8 
So 





i] 
BGNTST: 


Yee 
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§ —Dec-1980 09:24:31 TOPS=-20 Blis 


—Dec-1980 09:21:22 PA: <NEALE 


TEST NUMBER: TST 41 


TEST NAME: 


NIBBLE OFFSET TEST 


TEST sy tlg: 


t. 


IMPLICIT I 
A BI 


T NIBBLE OFFSET COUNTERS TO OFFSET GOOD NIBBLE DATA A MAX 
4 WORDS ON DETECTION OF ALL BAD NIBBLES BY: 


LOADING FIRST 2 1/4 WORDS OF THE IO_BUF WITH ZEROES AND THE 
REMAINING OF BUFFER WITH ONES. 


VIA DAT_DM MODE WRITE THE GOOD BLOCK WITH BACKGROUND 
ON ONES. 


VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD. 
VIA A MBUS WRITE FUNCTION LOAD I0_BUF INTO THE GOOD BLOCK. 


VIA DAT_DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE 
REMAINING WORDS FOR ONES. 


NPUTS: 
TEMP 
T ps i 16 BITS WHERE THE READ PROM DATA IS STORED AND 


ACCESSED 


i 
i 
i 
i 
i 
i 
i 
i 
i 
; 
i 
i 
i 
i 
i 4. 
i 
i 
i 
i 
i 
i 
; 
i 
i 
i 
i 
i 
_ 


Ae OUECTOR OF ae) a WHERE DATA FOR MBUS READS AND WRITE 


UNCTIONS ARE 


!DROP UNIT FLAG 
'TEST PATTERN 
's NG WORD 


BGNSUB 
ae 
.FLG = ZERO; 


incr WD_CNT 


10_Bur C 
10_8UF Bu Et : = ZEROES; 


10 
107) 


from 0 0 255 do 


'LOAD I0_BUF WITH ONES 
-WD_CNTJ = ONES; 


'LOAD FIRST 2 1/4 WORDS WITH ZEROES 


= fort?) 


=16 
* 


v2(212) 
-BLI.2 (91) 


SEQ 0402 


1901 mL 
19013 ; 
19014 © 


ed ed ed od ed 
Secsars 
OWONAW 


tm ito 


ot dh ss SF Ho I SS SS 


PRohir da adit crs 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
19054 
19055 
19056 
+9057-> 
19058 ; 
19059 ; 
19060 ; 
1) 3 
19068 : 
19064 ; 
19065 ; 
19066 ; 
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PORN SeSeR OPER SR OR RUNEOIES 


ERS: 


BREE 


ee 
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ONES; 
DAT_DM_XFER’ (); 
MLCS1 = write; 


incr WD_CNT from 0 to 127 do 


n 
DELAY (ONE_US); 
LK = ONE; 


incr TWICE from 0 to 1 do 
begin 


incr WRD_CNT from .START to .FINISH do 
begin 


incr NIB_PTR from 0 to 8 do 


if .PD_TEMP C.NIB_PTR] IS_NOT_SET 
then 


in 
TST_tNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); 


if .ERR_FLG IS_SET 
then 


n 
E (94 
PRINTB ( mt, who 41 
PRINTB (FAT “os NIB_PTR 
DODU_FLG = ONE; 





5; 


DUMPER) ; 


3opec=1980 09:01:22 PASEALE 


!LOAD DATA DIAG REGISTERS WITH ONES 


4.BL1.2 


!SET UP_A_DATA SIAG MODE XFERR 
!DO A WRITE XFERR 


!LOAD BLOCK WITH BG PAT 


;FORCE ALL NIBBLES BAD 
!SET oa READ WRITE 
iSeT UP _A GOOD wg XFERR 
WRITE ZEROES IN FIRST BLOCK WORD LOCATION 
iOFFSETTING 14 NIBBLES WITH ZEROES ALSO 
: START AT THE FIRST BLOCK WORD 
‘END AT THE 14°TH BLOCK WORD 
iTEST FOR ag IN FIRST 14 WORDS 
‘SET UP A DATA DIAG MODE XFERR 
IDO A READ fu 
!READ WORDS 0-14 FOR 0°S AND 15-126 FOR 1°S 


'READ BLOCK WORDS FORM START TO FINISH 


'GET PROM DATA 
!CLOCK OUT THE DATA WORD 


!READ THE DATA DIAG REGISTERS 
'LOOK AT 9 NIBBLES 
!FIND GOOD NIBBLES 


!COMPARE NIBBLE WITH TST PAT 
!SEE IF COMPARE FOUND AN ERROR 
'ERROR AND SET DODU_FLG IF ERROR FLG SET 


WRD_46, WRD_10); 


TOPS-20 BLi ‘Si 16 et 


SEQ 0403 


| 
cman me eee 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


Soe 


: ig SEREEEREEEERENTITE 


8888 


S883 
PEERS AS 


Saesseenaeness 


cee ce ee ce ee ee ad ceed ee ce ee cee ce ed ce ceed eed ee ed ed eed eed eed 


SVSSIVVVVVVVeVs 





VBVONSARUN=SBSLFEKRELLS 


SSSSS4929993 






end; 
end; 
TST_PAT = not .TST_PAT; 
START = 15 


FINISH = 126; 
end 


ENDSUB; 
if .DODU_FLG IS_SET 
hen 


t 
at 
(.ML_LUND ; 
DOCLN; 


ENDTST; 
115412 $141: JSR R1,$SAVE5 
000012 SUB #12,SP 

18: TRAP 2 
0000460 124474 BISB #40,aML.REG+40 
125056 MOV ML R4 
19399 BIC vi R46 
000007 124456 BICB = #7 , AML. REG+40 
124452 BISB R4,aML.REG+40 
000004 CLR S§P) 

CLR R 

2s: og R2,R3 
177777 011600 mov #~1,.10.BUF (R3) 
000377 CMP RS 9377 

BLE 2$ 

12385 aoe 
1 122776 MOV #-20, 10.BUF +4 
1pp999 1 4396 MOV #~1, aM .REG+170 
177777 «1265 MOV #1, aL .REG+ 
177777 124502 MOV #-1, aL .REG+160 
125324 JSR PC DAT .DM.XFER 
000061 124310 MOV #61 .@ML.REG 





6 
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TOPS-20 Blis 
PA: <NEALE>8L 


“9 v2(212) 


33pec=1980 09:51:22 


!NOW READ FOR ONES 
'START A 15 
'END AT 126 


!DROP THIS UNIT IF DODU_FLG SET 


+ WD.CNT,* 


; WD.CNT 
WD.CNT,* 


-BLI.2 (91) 
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MISCELLANEOUS CODING SECTION 







weeeeees 
eh aad ad 


& 
2 
¥RRVo 
see 


191 
191 

191 

191 

191 

191 

191 

191 

191 

191 

191 

191 

in 124370 
191 

191 

i920 126272 
9141 O667¢ 

191 z 

19143 06675¢ 126254 
19144 066740 

iis Br 

Ise? Oeeree 

19148 066760 124306 
19149 066 

19150 066 126154 
19152 06 

191 124200 
19134 O67014 

19186 126162 
19157 

3 soon 
19160 

1912 124070 
191 

191 

m1 

4 

9167 0671 

9168 0671 

91 

4 

m1 

m1 

91 

4 

91 

1 

1 


YRARANASSELSALAK 


aa a Ot Vt OS 


124252 157768 
000020 124132 
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R1 
#1 ,R2 


LSDLY,R3 
ete 


SRA PSSFSIUI 
ee 
‘aie 

22 Fa 
F Q 
o —_ 

8 


SRa8e7 
a> 
g 8 
x 
3 


aA@A he 


g 


yr 
s 
< 
. 
fe 


SP) ,R1 


ROR 





-REG+230 PD. TEMP 
120 


#20 ,@ML .REG+ 








; WD.CNT 
3; *,SSTMP2 


=, SSTPP1 
SSTMP 
$$TMP1 
53 1FP2 


WO. CNT 


; WD.cwi,* 


; START 
; *, FINISH 


TST.PAT 


* ,SSTPP2 
* ,SSTPP1 
SSTP1 
SSTMP2 


TWICE 
START ,WRD.CNT 
WRD. CNT 


SEQ 0405 


2-bec-1980 09:24:31 
2-Dec-1980 09:21:22 


Tops 
PA:< 


8655 
865 


865 





eS Re 8 a ee ae 


SEQ 0406 | 
TOPS 

PA:< 
8683 

| 


Se seats Gogh: 31 


:22 


-1980 09: 





o 

~~ we . . ee & . a" = 

| fcaes§ 8 5 : oe & & SF &e 
a 
oO ees 

: a ; 58% = 5 
+ brefretre GGG & Saran ePSsEs aon < 
258 See CTR iggt Treen wits oeie OTR xo 
peaks fovesyes ness 


i 
So Salk Ex eston YEE Sep eatoe tER 


3ML4 
16$: 


: 


A 
wn 
ced 


35 
5 SUELSUESBEESEDINSBESESHeDEREenees ee sepeenatenaates 
Z 








eeaenn ne An nABEe cine 


SESEEEEESDODSDSDDDEDSSOO NOOSA SNORE OOO DOOD SOO RO ODDO OS 


fA OF CA CA CROC CA CR CA CA CA CAR CA CAC 
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CZMLABO | 
MISCELLANEOUS CODING SECTION SEQ 0407 | 
22-Dec-1980 09:24:31 TOPS 
2-Dec-1980 09:21:22 PA: 
#6,SP : - 
R ; NIB.PTR 
R310 ; NIB.PTR,* 
R1 3 WRD.CNT 
OP awsttn 3 WRD.CNT,FINISH 


COM RS 
000017 000006 MOV #17,6(SP) 
000004 #176,4(SP) 


; TST.PAT 8706 
* START 870 
tate 


TWICE 
TWICE,* 


NN 


g 
S 


R4 
000001 CMP R4 #1 


cc ce ce cD ced Dd ed ed ed ed eed 
SERRE SRRSRGECSS 
od cmd od 
RS BS285 
oO 
—~ =3 eee 
S22 “a 
ae a 
ak Fiat Fd 
R 
ae 





7 
19530 Ooress a 
19251 4 CMP 7 eee : 863 
1 067456 TRAP 6 3 8709 
1 067. ROR RO | 
1 sch BHIS 23$ 
19255 067 177020 JMP 1$ 
1 Gers 000004 000001 23S: CMP 4(SP) #1 ; DODU.FLG,* 8713 
1 7476 BNE 24$ 
19258 067500 124074 MOV ML. LUN, RO : 8716 
19259 067504 TRAP 51 | 
19260 067506 TRAP 44 
19261 067510 000012 24$: ADD #12,SP : 8595 
13508 067514 RTS PC 
19264 3; Routine Size: 263 words 
19069 ; Maximum stack depth per invocation: 23 words 
19271 
19275 
19279 067516 T41:: 
19280 067516 004767 176756 1$: JSR PC,$741 ; 8718 
Ie RA Sess ws 
19588 porees 103 BLO 1$ 
Ly : 0675 000207 RTS PC 
19286 ; Routine Size: 6 words 
19287 ; Maximum stack depth per invocation: 0 words 


SEQ 0408 


F 16 


MACRO M1113 22=DEC=80 12:16 PAGE 421 


NG SECTION 


L 
C 


CZMLABO ML-11 LOGIC TEST 
OO! 


MISCELLANE 





! <BLF /PAGE> 


8721 
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CZMLABO ML-11 LOGIC TE 

MISCELLANEOUS CODING SECTION 
19 sML4 —Dec-1980 09:24: 
12 ns $ -Dec-1980 09: ‘gt: 
19 3 8 § ! 
19 3 8 BGNTST; 
19. 3 8724 
19 : 8725 '++ 
ib 3 14 TEST NUMBER: TST 42 
13) $ : 8 TEST NAME: CS1 FUNCTION ABORT TEST 
23 3 8 i TEST DESCRIPTION: 
19al¢ 3 : 1 TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS ‘A’ @ ‘'B" ERRORS BY: 
Walt 3 Bre i 1. VIA MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACKGR 
19315 : 8734 | PATTERN OF ONES. 
19316 ;: 8735 
19317 ; 8736 2. CLEAR THE I0_BUF 
19318 ; 8737 | 
19319 ; 8738 i 3. DO A MBUS READ FUNCTION. WHILE THE READ IS IN PROGRESS WRITE TO 
ese 3 1+ MLDA (CLASS ‘A* ERROR) READ THE I0_BUF FOR ONES. 
19358 3 8741 i 4. CLEAR THE I0_BUF 
19. 3 874 i 
19324 ; 874 i 5. VIA PROM R/W MODE FORCE UV ERROR TO THE UV ADRS ERROR PROM 
19325 ;: 8744 i (CLASS ‘B" ERROR). DO A MBUS READ. 
19326 ; 8745 
19327 ;: 8746 i 6. READ I0_BUF FOR ZEROES 
19328 ; 8747} 
19329 ; 8748 i IMPLICIT INPUTS: 
193350 ; 8749 i 10 
19331 ; 8750 i A VECTOR OF 256 gy Bs DATA FOR MBUS READS AND 
pass ; 8751 i ORITE CONC T IGN ARE F 
19 s 8752 i— 
BS on ou 
19336 : 8755 BAI = ONE ; 'SET wi at I0_ BUF ADRS 
19337 ;: 8756 I0_BUF = ONES ;LOAD F 0_B0F ADRS 
19338 : 8757 GD_ BLK_XFER G: 'SET wp! ry COND" BL BLOCK XFERR 
19339 ; 8758 MLS! = write; iWRITE BACKGROUND PATTERN 
19340 ;: 8759 TIME_OUT_LOOP; 
19341 ;: 8760 
Lt 95 Z 8761 incr TWICE from 0 to 1 do 'FORCE CLASS ‘A‘* AND CLASS ‘B’ ERRORS 
19343 ; 87 in 
19848 B76, PER BUS 
19346 ;: 8765 
19347 ; 8766 incr CNT from 0 to 255 do 
He 7, 3 oer 10_BuF C.CNTJ = ZEROES; 'CLEAR OUT I0_BUF 
19350 ; 8769 if .TWICE eql 1 'IF 2ND PASS THEN FORCE °B’ ERROR 
19351 ;: 8770 then 
ee; hy 
9354 : ae MLPD~ = 10'S; 


31 TOPS-20 Bliss-16 V2(212) 
722 PA: <NEALE>BL3ML4.BLI.2 (92) 


SEQ 0409 


H 16 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 2} 


in 
PRRDF (96, SYNC, DUMPER); 


MISCELLANEOUS CODING SECTION SEQ 0410 
19 sML4 —Dec-19 2:24:31 TOPS=-20 Bliss-16 V2(212) 
19837 $ $5 ee- 1380 93 1:22 PA: <NEALE>BL3ML4.8L1.2 (92) 
19359 ; 8774 end; 
19. 3 8775 
19361 ; 5776 GD see (); 'SET UP A GOOD BLOCK XFERR 
Lb ; 8 mtS1 = read; 'DO A READ FUNCTION 
he} : 8779 if .TWICE eql 0 then MLDA = ONES; 'IF FIRST PASS THEN FORCE AN ‘A* ERROR 
19366 ; 8781 TIME_OUT_LOOP; 
19367 ;: 8 
19368 : 8 if .TWICE eql 0 'SEE WHICH PASS WE'RE ON 
19369 ;: 8784 then 
1330 3 are? begin 'CLASS ‘A’ ERROR 
195%6 3 8787 incr WRD_CNT from 0 to 64 do 'SEE IF XFERR WAY ALLOWED TO CONTINUE 
19373 ; 8788 begin 
19374 ;: 8789 
19375 ; 8790 if .10_BUF C.WRD_CNT] neq ONES 'READ I10_BUF FOR BG PAT 
19376 ; 8791 then 
19377 : 879 pogin ‘ERROR AND EXIT LOOP IF ZEROES 
19378 ;: 879 ERRDF (95, SYNC, DUMPER); 
19379 : 8794 PRINTB (FOR_FMT, PHR_8, FNC_13, WRD_19, WRD_10); 
19380 ; 8795 exitloop; 
19381 ; 8796 end; 
19382 ; 8797 
193835 ; 8798 end; 
19384 ; 8799 
19385 ;: 8800 end 
19386 ;: 8801 else ‘CLASS ‘B' ERROR 
19387 ; 880 begin 
19388 ; 880 
19389 ; 8804 incr WRD_CNT from 0 to 64 do 'SEE IF XFERR WAS ABORTED 
19390 ; 8805 begin 
19391 ;: 8806 
19392 ; 8807 if .10_BUF C.WRD_CNT] neq ZEROES 'READ I0_BUF CLEARED DATA 
19393 : 8808 then 
19394 ; 8809 ‘ERROR IF ONES AND EXIT LOOP 

19395 ; 8810 Z 

193% ; 8811 PRINTB (FOR_FMT, PHR_9, FNC_13, WRD_19, WRD_10); 

19397 ;: Ssi¢ exitloop 

19398 ; 881 end; 

19399 ;: 8814 

19400 ; 8815 end; 

Bang 

194035 ; 8818 

19406 ; 8819 if .SC IS_NOT_SET 'SEE IF SC BIT SET 

19405 ;: 8820 then 

19406 ; 8821 ‘ERROR IF NOT SET 

19407 ; gece ERRDF (104, SYNC, DUMPER); 

19408 : 882 PRINTB (FIV_FMT, WRD_59, PHR_1, WRD_11, WRD_19, FNC_13) 

19409 ; 4 end; 

19410 ; 8825 








1941 


EERLLE 
—_ NOUS 


ce ce ce ce ce ce cd ce ed ced ed eed eed ed od ed 
wm 


RRRREKK 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 


3 
& 
s 





& 


iS aa ceetan aaa se eae s as oe 
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sML4 


ase 


38 V32777 


Be 


g PRRSELRESPRESPRRELERELE 
BEERS TEER EEE en 


& 
BRRERR & 


ae 
RS 





177777 
123246 
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123360 
123462 


123220 


123232 


$142: 


1$: 


5$: 


BLE 


BeRACaaERGeS 


Sh 


33 


R1,$SAVE3 

#40, aM .REG+40 

ML R3 

#1 R3 

#7 . 2. .REG+40 
aM .REG+40 

#16, aL .REG+40 

#~1.10.BUF 

PC, GD.BLK.XFER 


#61 aL RE 

aM -REG+50 

1$ 

2 
#40, @ML .REG+40 
mL R2 

#1 R2 

47 ,@AL.REG+40 
R2. aM .REG+40 
RO.RI 

10.BUF (R1) 

RO 

RO, 4377 

3$ 

R3,41 

43 

#100. a. .REG+120 
#777... .REG+230 
PC,GD.BLK.XFER 
#71 ,@ALREG 


—Dec-1980 09:24:31 
-Dec-1980 09:21:22 


Bete Be Be 


Se Se Se Se Be Be 





TWICE 


CNT 
CNT ,* 


CNT 
CNT,* 
TWICE,* 


TWICE 


SEQ 0411 


>BLSML4.BLI.2 (92) 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE 


000 
3 8S 


000000 
rs 


SR RS 


00 00 
~~ 


a Es 


8783) 








SEQ 0412 
TOPS 
PA:< 
750 

| 
8793 
oy: 
8 
878 
8g 
880 





Ss 
a 6 « 
a © 

SS55% * 5, 
; AAP Seek 
5 Bre 8 3 an 
Ygere S § gb 
& 8. o¢b8e 818 tee pmNRE dE 


aN 
Ra 
ge 
88 
| ue 
| Se Se EE 
&§ a §§ &§ 
‘ 58552 
- 'tete~wis 
= fesse. 8 
= ° S'S 
Bove ose ee eS EE cee Bynigiy 


2ML4 


— © £ 88 


aa | 
—— 


J_16 
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3 
- 
o 


uSpubgSSSSEREEEDE Saba SbaDEs se SEBERBERS Se ebuSESOCeS 


a 


11$: 
100000 122766 12$: 


006406 
ce 
755 
006046 
000005 
14 
000100 


010112 


ce 


BSE ESean Se PrEREPEEESBeEe 


EEPEPEEEPEEEEEEPEEEPEEEPEEE? 


3 on 


LLL ELLE COCOULECOEC_LC_EC€_L_COCEL_LCCOCL_CL_C©LCOOLOO©OLOoSQ©OL LECCE LOCOL LOC LOCC KK 


| 








11 words 
0 words 


“2 ae ot 8 3 
us DONS E £ 
g ASL a Bs a § 
ES gee EE PER gee b 
‘oO >I = Re ne “ 7 
a Bsiiigactcetnoste “2 0 every <8 
3 83 oF 
S  « BBEBEBESSSSatebuc f2 | «S88aE fe 
2 # a a ee eé 
= sere - -m- ete -—— fers 
& 
z 


! <BLF /PAGE> 


s gue AJ ; 
marel : 
aR 


8830 





SaHTORS 


Se el el el ol el oll ol el le ll ll Sk eh ee ek ol 


7 
= 
i ROR 





eee 2 SS EE ee ee  ———————————————————E EEE 
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MISCELLANEOUS CODING SECTION SEQ 0414 
1 sML4 —Dec-1980 09:24:31 1 ae 4 Jey 16 V2(212) 
19a09 Bo peew 1880 09.51 ae >BL 3ML4.BL 1.2 (93) 
19578 
9579 1: 
9580 
9581 BGNTST: 
144 


i TEST NUMBER: TST 43 
TEST NAME: LAST BLOCK TRANSFER TEST 
TEST DESCRIPTION: 


TEST THE LAST BLOCK INDICATOR BIT 
FOR SETTING/NOT SETTING AND THE 
DSA REGISTER FOR INCREMENTING BY: 


1. DOING MBUS TRANSFERRS AT EACH 
BLOCK FROM BLOCK ZERO TO 
LAST BLOCK - TEST L8T 
CLEAR AND DSA REGISTER TO BE 
INCREMENTED. 


ke ed ad ed td ts od =) ss = 


SEESEEEESSSSSUSSSSUIRIIIEE 


Be Pe Be Be Se Be Be Be Be Se Ge Be Be Fe Ge Ge Be Ge Be Be Be Ge Ge Be Be Ge Ge Ge Be Be Be Be Ge Se Ge Be Se Ge Ge Ge Be Se Se Ge Be Ge Ge Se Se Se Ge Ge 


z KORE ochre seer g 


1 2. DO A MBUS TRANSFERR AT 

1 THE T BLOCK 

1 TEST LBT TO BE SET AND 

1 8855 TEST FOR CLEAR. 

: ste] TEST DSA REG TO BE INCREMENTED. 

1 8858 IMPLICIT INPUTS: 

1 8859 10_BUF 

19608 8860 A VECTOR OF 256 WORDS WHERE 

19609 8861 DATA FOR MBUS READS AND WRITE 

19610 pong FUNCTION ARE FOUND. 

19611 

iets 8864 '— 

1961 8865 

19614 8866 local 

19615 8867 DODU_FLG; 'DROP UNIT FLAG 

19616 8868 

19617 so6° DODU_FLG = ZERO; 

19618 70 

19619 8871 incr DSA_CNT from 0 to .LST_BLK - 1 do !DO XFERRS UP TO THE LAST BLOCK 
19620 aar6 in 

19832 iS CLR MBUS 

1 8875 ey = OnE i ; DISABLE ECC 

19624 8876 MLW = not 255; {LOAD WORD COUNT 
19625 8877 MLBA = 10 i ® ‘LOAD UBUS ADRS 

19626 8878 MLDA = .DSA_CN iLOAD DSA WITH DSA_CNT 
19627 8879 MLCS1 = writes 'DO A WRITE FUNCTION 
19628 8880 TIME_OUT_ 

ine 8881 

1 8882 if .LBT IS_SET 'SEE IF THE LAST BLOCK XFERR BIT SET 





CZMLABO ML-11 L 
MISCELLANEOUS C 


m4 


SERLERRERALELEIEGEE 


"ee Se Ge Se Ge Be Ge Se Ge Se Ge Ge Be Se 


REBRELELRLRELRS 
— 


SERRERRERS 
aaa. 


== 


sceeeegdl 


Bae Pe Se Ge Ge Ge Ge Ge Be Be Ge Ge Be Ge Be Be Be Se Be Ge Be Ge Se Be Be Se 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PeREREESSESSS 


OGI 
OO! 








TES 
SE 


EEN Eh Rani SAGSEPREREERRER EEE EECE RA LS CER aL ett td 


T 
CTION 


then 


Be Tie 


BRINTE CAR 
PRINT (FATA? 
DODU_FLG = 
end; 


R); 
PHR_S, WRD_29); 


SAtNTS 


if .MLDA -DSA_CNT + 1 
then et 


ASYNC, 


DUMPER) 


M_16 
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n 
E (98, 
PRINTB (THR_FMT, REG 6 wD _31, WRD_14); 


PRINTS (FMT 
DODU_FLG = 


if .LBT IS_SET 
then 


mba" ONES; 


if .LBT IS_SET 
then 


, -DSA_UNT); 
ag. DSA-tNPD 


531, WRD_14); 


33pec=1980 09:51:22 


'ERROR AND SET DODU_FLG IF SET 


!SEE IF THE DSA REG INCREMENTED 
!ERROR AND SET DODU_FLG IF NOT 


; DISABLE Bay’ 

!SET UP _A_LAST BLOCK XFERR 

DO A WRITE FUNCTION 

!SEE IF DSA REGISTER INCREMENTED 


!ERROR AND SET DODU_FLG IF NOT 


'SEE IF LBT BIT SET 


!IF SET THEN TRY TO CLEAR IT 
!SEE IF BIT CLEARED 
'ERROR IF NOT 


n 
E (99, ASYNC, R); 
PRINTB (FIV_FMT, uD DP PHR_2, WRD_11, WRD_17, REG_6): 
DODU_FLG = ONE; 


else 
begin 


;LBT NOT SET 
'ERROR AND SET DODU_FLG 





TOPS-20 Blis 
PA: <NEALE 


=16 V2(212) 


4$.8L1.2 (93) 


SEQ 0415 





ss 


N_16 
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5 age 8 
ao 
a —, 
8 
Sq 
iF 
3 
eg 5 
Bs = 2e5 
a é 833 
25 a oa; 
83 z 
2B v 
te : 
aa 
oe} 
§ 
5, z 4 
§ 32 x 
“, Seuesen 
st 
BS Sap ca82 
§ , 
Z.°.. oe hes 5 : 
oe e 3 5 6|OCS 
+S u S 4, 
. 3 § 
ba g 5 #82 tas 
si —_ 
&5 


ATES ERECT SES 


L 


01 Bbs06) 121254 


seness 


SOSaUTregS FRR ENEEER RED ET EE 


See SO eee eee 
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eS 


5 


~~ 
Bs B35 5 3 


5 
a 
g 
+ an 
& fisture # Bb 
& e AAtre . vas 
rab he : aa 


122640 
570 
72 
122540 
122574 


pre 
ee 


002000 
ise 07479 
006602 


01 
01 
a1 Oroase 012746 


ERESDRCSSESERRE RSE SS SSS 


Sere ccerrerecererccere 
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MISCELLANEOUS CODING SECTION SEQ 0417 
19743 ZML4 22-Dec-1980 09:24:31 T 
13008 : 22-Dec-1980 09:21:22 PA: 

12746 34 MOV ATHR.FMT,-(SP) 
13548 Sop004 +e pare 
1 MOV SP,RO 3; SP,* 
04414 TRAP 
91 16 MOV R2, (SP) : DSA.CNT,* 
1 004562 MOV #FAT.7,~(SP) 
12746 000002 MOV #2,-(SP) 
1 MOV SP,RO : SP,* 
04414 TRAP —s_«(14 
701 1 MOV #1.R1 : *,DODU.FLG 
16 ADD #16,SP : 
92 122460 4$: CMP @ML .REG+30,R3 : 
14 BEQ 5% 
10645 TRAP = s«&55 : 
142 «WORD 142 
10464 .WORD  ASYNC 
be .WORD DUMPER 
746 00644 MOV MRD. 14,-(SP) ; 
12746 MOV MERD.31,-(SP) 
12746 010316 MOV WREG.6,-(SP) 
12746 MOV #THR. FMT ,-(SP) 
Sass my a s 
eo 3 * 
104414 TRAP soi 
910216 MOV R2, (SP) : DSA.CNT,* 
46 004562 MOV #FMT.7,-(SP) 
12746 MOV #2,~(SP) 
MOV SP ,.RO : SP,* 
104414 TRAP «14 
1 000001 MOV #1,R1 3 *,DODU.FLG 


5$: TRAP 67 3 


; DSA.CNT 
; DSA.CNT,* 


1$ 
: 2 : 
122354 BISB #40,@ML.REG+40 : 
1 MOV ma. DUT RG 
6R4 
122336 fe wa Re 
122404 BIS8 #2.@ML.REG+1 ; 


SR LAST : 
122252 MOV #61, @ML REG ; 
REG 
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CZMLABO | 
MISCELLANEOUS CODING SECTION SEQ 0420 

19901 smL4 —Dec-19. 2:24:31 TOPS-20 Bliss-16 V2(212) 

Tope 3 $5 pec = 1380 93:39:35 PA: <NEALE>BL3ML4.BL1.2 (94) 

19904 ;: 8951 ! ’ 

eB oust 

19907 ; ee 

19908 ; 5 !44 

19909 ;: ; TEST NUMBER: TST 44 

19910 : 8957 ! 

19911 ;: 8958 |! TEST NAME: INVALID ADRS TEST 

16 $ 8959 _ =! 

199135 ; 8960 i TEST DESCRIPTION: 

19914 ; 8961} 

19915 ;: 2008 i TEST THE DETECTION OF ILLEGAL DSA 

19916 ; i ADDRESSES BY: 

19917 : 8964 

19918 ; 8965 1. DOING A MBUS WRITE FUNCTION 

19919 ;: S308 i AT ALL POSSIBLE ILLEGAL DSA 

19920 ; 896 i ADDRESSES AND TEST THE 

19921 ; 8968 i IAE BIT SET. 

156 ; 8969 

1 3 8970 i IMPLICIT INPUTS: 

19926 ; 8971} 

19925 ;: o2e6 i 

19926 ; 89 i i OOPLTOR OF 256 WORDS WHERE 

19927 : 8974 i DATA FOR MBUS READS AND WRITE 

19928 : 8975 i FUNCTION ARE FOUND. 

19929 ;: 8976! 

19930 ;: 8977: 

19931 ; 8978 i 

19932 ; 8979 

19933 ;: 8980 local 

199% ; 8981 IAE_CNT; 'INVLID ADRS COUNT 

19935 ;: pas 

rad Zz IAE_CNT = .LST_BLK; 'START AT LAST BLOCK + 1 

19938 : 8985 do 'TEST FOR ALL INVALID ADDRESSES 

19939 ;: 8986 peg’ 

19940 ; 8987 CNT = .IAE_CNT + 1; ! INCREMENT IAE_CNT 

19941 ;: 8988 ory 

INS 3 8989 CLR 

19943 ; 8990 2555" 'LOAD DSA 

19944 ; a7) Rit = ot 25 'LOAD WORD COUNT 

19945 ; 5 MLBA = 'LOAD UBUS ADRS 

19946 ;: 899. MLCS1 = "ites 'DO A WRITE FUNCTION 

19947 : 8994 

19948 : 8995 if .IAE IS_NOT_SET 'SET IF IAE SET 

19949 ;: 8996 then 

19950 ; 8997 poatn 'ERROR IF NOT SET 

19951 ;: p44 E (102, ASYNC, DUMPER); 

ae f PRINTB (FIV_FMT, WRD_30, PHR_1, WRD_11, WRD_30, WRD_10); 

19953 ;: 9000 end; 

19954 ;: 9001 

19955 ;: 9002 ENDSUB; 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
8 
1 
abs 9 T44:: 
714 767 177600 1$: JSR PC, $744 : 
A pre} 1 TRAP 66 
71 ROR RO 
1 071444 10 BLO 1$ 
71446 000207 RTS PC 
20034 ; Routine Size: 6 words 
5 : Maximum stack depth per invocation: 0 words 
20041 
20042 ;: 9007 !<BLF/PAGE> 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0423 
2O0K4 ML 3 —Dec-1980 09:24:31 TOPS-20 BLliss-16 v2(212) 
5; —Dec-1980 09:21:22 PA:<NEALE>BL3ML4.BLI.2 (95) 
S000 9008} 
; 9009 BGNTST: 
Sei a 
50 ; 9011 44 
5008s ; 2018 | TEST NUMBER: TST 45 
; 9014 | TEST NAME: ADRS OVERFLOW BIT TEST 
20054 : 9015! 
20055 : 2016 i TEST DESCRIPTION: 
20056 : 9017 TEST THE DETECTION OF ADDRESS OVERFLOWS BY: 
20058 : 9019 | 1. STARTING AT THE LAST BLOCK DO A TWO BLOCK TRANSFER. 
20059 : 9020 
20060 : 9021 2. READ THE AOE BIT SET. 
20061 : 9022 
20062 ; $098 IMPLICIT INPUTS: 
20064 : 9025 i A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
20065 : 9026 FUNCTIONS ARE FOUND. 
20066 : 9027 i 
20067 : 9028 
20068 : 9029 CLR_MBUS: 
20069 : 9030 MLW = not 511: 'DO TWO BLOCK XFERR 
20070 : 1 MLBA = IO BUF: 'LOAD UBUS ADRS 
20071 : 9032 MLDA = .LST Bik; iSTART AT LAST BLOCK 
20072 : 9033 MLCS1 = write: iDO A WRITE FUNCTION 
20073 : TIME _ : 
pote ; Bier if .AOE IS_NOT_SET 'SEE IF AOE SET 
soor8 peice then i Pee vanaae IF NOT SET 
4 n 
$0078 : 9039 Peer (103, SYNC. DUNPER); 
20079 : 9040 PRINTB (FOR_FMT, WRD_26, PHR_1, WRD_11, FNC_19); 
20080 : 9041 end; 
20081 : 904 
20082 : 9043 ENDTST: 
20090 071450 152777 0000460 121536 $145: BISB  #40,aML.REG+40 ; 
20091 071456 1¢700 i 1 Moy ML. DUT RO 
or 1 500 7 121520 BICB = #7 , AML..REG+40 
671500 br> as i 4000 121456 nov #-1000, am REG 10 9030 
‘ + 3 
200% 071506 012777 011600 121460 MOV #10.BUF ,aML.REG+ : 1 
20097 071514 016777 120052 121462 MOV tae tO : S032 
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; Maximum stack depth per invocation: 


— stack depth per invocation: 


1 
MACRO M1113 22-DEC-80 12:16 PAGE 137 


Sm SREGSSO” 


#1000, @ML .REG+60 


5 
147 
SYNC 
DUMPER 
#FNC.19,=(SP) 
MRD. 11.=(SP) 
#PHR.1,-(SP) 
MRD. 26,-(SP) 
#FOR.FMT (SP) 
(SP) 


14 
#14,SP 
PC 


52 words 


PC 
6 words 





6 words 


5: 


0 words 
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SEQ 0425 


32-Dec-1980 09:24:31 TOPS-20 Blisg-16 2/212) 


—Dec-1980 09:21:22 


1 
BGNTST; 


leg 


: TEST NUMBER: TST 46 

i Test NAME : SYNC BUS PARITY TEST 

i TEST DESCRIPTION: 
TEST oe OF SYNC BUS T9 DETECT AND GENERATE 
GOOD PARITY BY: 


1. VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE 
DEVICE AND READ THE DPAR BIT CLEARED. 


201 2. REPEAT WITH SHIFTED DATA 
20174 3. VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED. 
0176 ; 9064 = INPUTS: 
20178 : 9066 A VECTOR OF F256 WORDS WHERE DATA FOR MBUS READS AND WRITES 
20179 ; 9067 TIONS ARE FOUND. 
20180 : 9068 
20181 : 9069 

182 ; 9070 if .PAR_DIS IS_SET 'SEE IF PARITY IS DISABLED 
20183 ;: 9071 then 

184: 907¢ begin 'PRINT MESSAGE AND EXIT TST IF YES 
20185 : 90 PRINTB (THR FMT, FNC_3, WRD_7, WRD_37); 

186 ; 9074 EXIT_T 
20187 ;: 9075 end; 
20188 ;: 907 
SO 190 : 3078 SAI One ag 7 ‘SET ON FIRST 10_BUF ADRS 
goi31 ; 9079 10_BUF = yy * 125252"; ‘ALTERNATE 1, 0 PATTERN 
20193 : Fir incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
20194 ; 908e in 
20195 ;: 
20196 : 9084 GD_BLK., *MFER (): 'SET UP A GOOD BLOCK XFERR 
20197 : 9085 mtS1 = write; iDO A WRITE FUNCTION 

198 : 9086 TIME_OUT_LOOP: 
30199 : 9087 

: 9088 if .DPAR IS_SET 'SEE IF DPAR GOT SET 

20202 : 3090 Ee ‘ERROR IF SET 
20005 909, ER NIB (PCR FMT ue OS” ino 6. WRD_7, WRD_9); 
20205 : 3098 
SO50e : 3098 10 BUF = .10 BUF*ONE: ‘SHIFT THE 10 BUF & REPEAT 
20208 : 9096 MLER = ZEROES; iCLEAR OUT ERROR REG & REPEAT 


4.BLI.2 (96) 
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33-pec=1980 09:81:22 


ENDSUB; 
end; 
iner — from 0 to 1 do 'REPEATE LOOP TWICE 
n 
CLR_MBUS; 
Sane: 'SET ON FIRST 10_BUF ADRS 
GD_BLK_ FER O; iSET UP A 6000 BLOCK XFERR 
aS iDO A READ RFE 
our’ too; 
if roe IS_SET 'SEE IF READ GENERATED BAD PARITY 


'ERROR IF MDPE SET 
E (106, SYNC, DUMPER) 
PRINTE (FOR_FRT. WRD_ 23, iro_6, WRD_7, WRD_8); 


ENDSUB; 
10_BUF = .10_BUF“ONE; MAKE DATA PATTERN HAVE ONE LESS ONE 
GD-BLK_XFER 7); iSET UP A GOOD 
mCsi = write: iCHANGE THE BACKGROUND IN MEMORY 
ENDTST; 
$1746: MOV R1,-(SP) : 
117724 000001 Ow PAR.DIS.A1 : 
006700 MOV MRD. 37,-(SP) ; 
006544 MOV MURD.7,~(SP) 
007750 MOV #ENC.3,-(SP) 
006034 MOV #THR. FAT ,-(SP) 
000004 MOV #4,-(SP) 
MOV SP, : SP,* 
TRAP 14 
TRAP «63 
00001 ADD #12,SP ; 
JMP ot ; 
121276 1$: BISB #40,aML.REG+40 : 
121 MOV ML. DUT RI 
1 BIC ai R1 
000007 121260 BICB = #7, AML. REG+40 


— 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0428 
O32 sML4 Dec-1980 09:24:31 T 
20526 : spec=1980 09:21:22 Pas 
‘ye 
205. 127 MOY MURD.64= (SP) 
2053s 107 MOV WURD.25,-(SP) 5 
20534 107 MOV #FOR. FMT .~(SP) 
gOS 127: MOV #5,-(SP) 
Sess MOV SP RO e SP,* 
50530 S37 000014 DD iis SP BR ect? 9111 
205% SSace9 7$ TRAP 67 j : 911 
) - 
2035 1 Ba |S 
ath 117316 ASL 10. 3 911 
seh} ar 123574 JSR PC,GD.BLK.XFER 3 911 
20536 g 000061 120660 MOV #61 ,@ML REG : 911 
505 1 120724 8$ TSTB aL .REG+5 
V55E 1 BPL 
U559 INC R1 3 TWICE 91 
127 000001 CMP R1,41 3; TWICE,* 
BLE 
rita 012601 >$: MOV (SP)+,R1 3 904 
000207 RTS PC 
so3e8 ; Routine Size: 153 words 
Sones 3; Maximum stack depth per invocation: 7 words 
20352 
20356 
20360 072316 T46:: 
20361 072316 004767 177312 1$: JSR PC,$T46 3 9121 
0 2 104466 TRAP 66 
075350 000207 RTS PC 
Sonor ; Routine Size: 6 words 
Os ; Maximum stack depth per invocation: 0 words 
20374 ; 9124 !<BLF/PAGE> 
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smL4 3 ~Pec-1980 09: 4:31  TOPS-20 BLiss- 
3 c-19 1:22 PA: <NEALE 
8 9125 ! 
3 91 ' 
: 9127 BGNTST: 
: 9128 
8 91 144 
: 3 TEST NUMBER: TST 47 
0386 ; 91 i TEST NAME: WRITE READ ML11 
sty 3 91 i 
0388 : 31 4 TEST DESCRIPTION: 
20390 91 i PROVIDES A MBUS READ/WRITE 
0391 ; 91 i DATA TRANSFER TROUBLE SHOOTING 
3 4 LOOP BY: 
3 9140 1. LOAD APPROPRIATE RH REGISTERS. 
3 9141 | DO A WRITE FUNCTION. 
20396 ;: 9142 } 
: 9143 | 2. LOAD APPROPRIATE RH REGISTERS 
: 9144 | DO A WRITE CHECK FUNCTION. 
399 : 9145 | 
: 9146 | 3. COMPLIMENT DATA AND 
: 9147 } REPEAT. 
8 9148 } 
: 9149 | IMPLICIT INPUTS: 
20404 : 9150 
20405 : 9151! 
: 9152 A VECTOR OF 256 WORDS WHERE 
7: 9153 i DATA FOR MBUS READ AND WRITE 
: 9154 FUNCTIONS IS FOUND. 
: 9155 i 
10 : 9156 i 
11; 9157 
\¢ 3 9158 Local 
20415 : 9199 TST_PAT; 'TEST PATTERN 
20615 : 9161 TST_PAT = %0°052525’; 
20617 : 9163 incr TWICE from 0 to 1 do 'WRITE READ 1°S AND 0°S ON MBUS 
SO19 jes té«‘R POs; 
: 3166 BAI “= ONE ; ‘SET ON FIRST 10 BUF ADRS 
: 3167 10 TST_PAT: ik FIRST 10 ADRS 
: 91 GD -XFER 0: iSET UP A OCK XFERR 
: 9169 msi = write: iDO A WRITE FUNCTION 
: 91 TIME_OUT_LOOP: 
: 9171 LR_PBUS; 
: g7@ = ONE: ‘SET ON FIRST 10 BUF ADRS 
: 91 GD_BLK_XFER (); iSET UP_A GOOD BLOCK XFERR 
: 917% mtsi = WaT CHK; iDO A WRITE CHECK FUNCTION 
20430 : 9176 - 


SEQ 0429 


ve v2(212) 
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0 eee ee 












CZMLABO 


sML4 


7: 
ae 
$i 
20444 ;: 
20445 ; 
S283 o723: 
20454 072336 
S0839 OFe: 
socer Oy5% 
20458 072356 

2370 
1 0723 
AA 
20465 743; 
Soce? O7805e 
20668 072634 
ae 
f tte 
pene OF SEK 
75 © : 
20478 07251 
SD Oreste 
8 ee 
0 
2B. 07293 
20485 072534 


ML-11 LOGIC TEST 
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if .WCE IS_SET 
then 


bas 
ERRDF (109, TRBLE_LOOP, DUMPE 
PRINTB (SIX_FHT, FNC_4, WRD_1 


TST_PAT = not .TST_PAT; 
end; 


ENDTST; 


1115 
05252 


$147: 


1$: 


R1,$SAVE2 
#52525,R1 


#40 , aL .REG+40 
ML RO 


#1 RO 
#7, PAL .REG*40 
amt .REG+40 
#10, aL .REG+40 
R1,10.BUF 
GD BLK. XFER 


phan Toa 
WFNC.5,~(SP) 


33-pec=1980 09:1 22 


!SEE IF WRITE CHECK ERROR SCT 


!ERROR IF SET 


R); 
0, WRD_12, FNC_5, FNC_6, FNC_3); 


!COMPLIMENT TST_PAT AND REPEAT 


+ *, TST.PAT 
; TWICE 


TST.PAT,* 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>BL3ML4 .BLI.2 (97) 


SEQ 0430 
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CZMLABO 
MISCELLANEOUS CODING SECTION 


FS 


&* 


: Max teum stack depth oa invocation: 


sep seeonrenenereperenene 


ds 
3; Maximum stack depth per invocation: 


3; .* 


+ TST.PAT 
; TWICE 


é TWICE,* 


22-Dec-1980 09: 
22-Dec-1980 09: 


S38 


SEQ 0431 | 


Bt 22 os 
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3ML4 


Be De Se Ge Be Be Se Ge Pe Ge Pe Se Be Ge Ge Ge Be Ge Be Be Be Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Be Se Ge Ge Ge Ge Fe Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge 


$5 pec~ 1380 gps 4:31 em 5 Blis “y v2(212) 


—Dec-19 2:21:22 A: <NEALE>8L 


( 

BGNTST; 

44 

TEST NUMBER: TST 48 

i TEST NAME: CRC DATA BUS TEST 


i TEST DESCRIPTION: 
TEST THE CRC DATA BUS BETWEEN THE CRC 
GENERATORS AND THE CRC/MBUS DATA 
es FOR CONTINUITY AND BIT UNIQUENESS 


1. yon AY ECC DIAGNOSTIC MODE DO 
gh ying a ane VARIOUS 


WHICH 
ig Ce RISE’ BUS Ae ONT IROL TY AND 


2. THEN IN DATA DIAGNOSTEC MODE READ 
THE CRC NIBBLES FROM ONE CRC GROUP 
FOR CORRECT CRC_A.CRC_B AND PAR_CRC_WRD 
DATA PATTERNS. 


! IMPLICIT — 
PD_T 


A BIT VECTOR OF 16 BITS WHERE THE READ 
PROM DATA IS STORED OAND ACCESSED FROM. 


CRC_NIB !POINTER TO THE CRC NIGBBLE 
CRC_TSTED, ; STORES HOW MANY CRC NIBBLES WE HAVE TESTED 
ERR_FLG, ‘ERROR FLAG 
NIB_PAT; ITEST DATA FOR THE CRC NIBBLE 
CRC_NIB = 9; !SET CRC NIBBLE POINTER 
incr a from 0 to 4 do 'REPEAT THE TEST WITH FIVE NIBBLE PATTERNS 
n 
; !START OF THE SCOPE LOOP 
CLR_MBUS; 
ECC_DM = ONE; 'SET ECC DIAG MOD 


case {CoP from 0 to 4 of !SELECT ONE OF THE FIVE NIBBLE PATTERNS 
se 


2: 'PATTERN 0 
NIB_PAT = %b'110"; 


-BLI.2 (98) 
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2 
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38 34 
95 ; 
94 
95; 9241 
3 354 
98 : 9244 begin = wes 
80 3508 NIB-PAT = ¥6°001*; 
1: 95¢9 end; 
3 9248 
3 9249 C2) : 
3 9250 ian 
3 9251 CRC_A = ONES; 
3 925 CRC_B = ONES ; 
20607 ; 925 NIB_PAT = %b'000'; 
$ 9254 end; 
3 9255 
10 ; 92 (3) : 
20611 ; 9257 begin 
Sols 3 9258 PAR_CRC_WRD = ONES; 
20613 ; 9259 CRCB =" ONES; 
20614 ;: 9260 NIB PAT = %b'011'; 
20615 ; 9261 end; 
20616 : asee 
20617 ;: 9 (4] : 
20618 : 9264 begin 
20619 ; 9265 P CRC _WRD = ONES; 
20620 : 9266 CRCTA =" ONES; 
20621 : 9267 NIB_PAT = %b'101'; 
spose 3 9268 end; 
3 9269 tes; 
spec’ 3 9270 
: 9271 GD_BLK_XFER (); 
20626 ; 92 m.tS1 = write; 
20627 ;: 92 Se. OUT_LOOP; 
20628 ;: 9274 T_Bm = ONE: 
3 92 GD "BR. XFER 0: 
F 9271 mtsi = 
1; 92 CRC TSTED = oc: RO: 
3 9278 DELAY (ONE_US); 
; 3560 do 
20635 ; 9281 begin 
ae 3 DAT CLK = ONE. 
Py = 
20638 ; 9 DELAY (ONE_US); 
2oe40 3 $080 RD_LNG_WRD; 
1; 9287 if .PD_TEMP [.CRC_NIB) IS_NOT_SET 
SOohs 3 9288 then 
r 9289 bea tn 
20644 ;: 9290 RC_TSTED = “CRC TSTED + INC 
20645 : 2 4 TST~LNG_WRD (.CRU_NIB, ul. PAT, ERR_FLG); 


$5 pew 1388 Oo gei al TOPS=20 Bliss-16 V2(212) 
—Dec-19 2:21:22 PA: <NEALE>BL3SML¢.BLI.2 (98) 
!PATTERN 1 

!PATTERN 2 

!PATTERN 3 

!PATTERN 4 


!TEST ONE CRC GROUP °6 CRC NIBBLES’ 


'READ THE PROM DATA FOR THIS ARRAY WORD 
ARRAY WORD INTO THE DATA DIAG REG'S 


LA CRO SECOND 
READ THE DATA DIAG REG'S INTO MEMORY 
!TEST THIS CRC NIBBLE IF GOOD 


REMENT THE GOOD NIBBLE COUNTER 
!TEST THE CRC NIBBLE 


SEQ 0433 | 
| 


| 
| 
| 
| 
| 


CZMLABO ML-11 LOGIC TEST 





MISCELLANEOUS CODING SECTION 


3sML4 

3 9293 

3 9 

3 9 

: g 

: 9297 

3 9. 
57: 9 

: 9. 

: 9301 

3 9 

: 930. 

: 9304 

: oa0e 

3 9308 

3 9309 

0 004167 

spore 8 162706 

9 ; 705 





W 


Sun CsSR ACT OOECHERDRER USC eCER AR ERSRcacenrer ne 


y 

& 

t+ 

NMOrn 
Ese 


i 





if .ERR_FLG IS_SET 
then 


end; 


31 
PRINTB (FOR_FMT, WRD_ 64, irp_2 
— (FMT_ -" ‘NIB _PAT, -NIB_ sive CRIB. 9), 


end 
until .CRC_TSTED eql 6; 


ENDSUB; 
end 


120326 


000007 120310 
ieoaoe 
1 120356 
072726 


120350 


$748: 


1$: 


4$: 


Seeeessas 


TRAP 


Sscatitcn 





a 
MACRO M1113 22=DEC-80 12:16 PAGE 447 


SYNC, DUMPER) 


aM. .REG+40 


Hi ia 


25(R4) PC 


4s- 
5$- 


ae -Re 
#~1 QML .REG+150 


26:31 
2:21:22 





!REPEAT UNTIL ONE CRC GROUP HAS BEEN TESTED 
‘END OF SCOPE LOOP 


*,CRC.NIB 


; CRC.NIB,* 


LOOP 


LOOP ,* 


* ,NIB.PAT 


SEQ 0434 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>BL35ML¢.BLI.2 (98) 


'SEE IF THE TEST FOUND AN ERROR 
!REPORT ERROR IF FLAG IS SET 
WRD_73, WRD JO: 





918 


92. 
928 


9231 
9. 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


SRR 


OO06S 


ARES 


BYBVIYIVSVIV SYS YSY SYS YY 
SPa dee NsIN IORI saan seSSIeaRe 
SR RAE: 


any 
=& 
eesesoesesosesecoces 


8 
z 
ihe 


CERES S SSs 
S285 
ay 









2 
MACRO M1113 22=DEC-80 12:16 PAGE 8 


8 3 


10$: 


11$: 


12$: 
13$: 


14$: 


15$: 


16$: 
17$: 


pazesaeegone 
B* <6 Bg 


~ 


Soraases 


STB 


@ 
8 


S235 


#-1,@ML.REG+160 
a »R2 


#77, .REG+150 
#77 , AL .REG+160 


#37600, @ML .REG+150 
#77, 2 .REG+160 
#3 .R2 


7400 , @ML .REG+150 
, ML .REG+150 


Pte trt) 
a 
BR 


san 
a 
2: 


SRASE NUS 
as gust gs 
d 


-REG+230,PD. TEMP 
gy eee iee 


spaage 


LSOLY.R4 
16$ 
6(SP) 

R4 

15$ 

R3 


14$ 

@L .REG+170,D1. TEMP 
Se ee tah tS toe 
OA REGS IOU-E - TEMP 


i 
“" (SPs 
PC BLSGT2 
#10,SP 


(SP) 


; NIB.PAT 


; *,NIB.PAT 


; *,NIB.PAT 


BeBe Fe Se Se Se Fe Be Be Se Be Be Be Be Be Be 


; CRC.TSTED 
* ,SSTMP2 


; *,SSTMP1 


SEQ 0435 


$5 -pec~1 89 09:24:31 
2-Dec-1 980 09:21:22 


* NIB. PAT 


SSTMP 
SSTMP1 
SSTMP2 





* ,SSTMP2 
= ,SSTMP1 
sine, 
SSTMP2 | 


9287 
CRC.NIB, * 





H 2 
ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 449 


CZMLABO | 
MISCELLANEOUS CODING SECTION SEQ 0436 

sML4 $5 -poc~1 389 09:24:31 T 

: —Dec-1980 09:21:22 PA: 
TST RO 
BNE 19$ 
INC —-2(SP) : CRC. TSTED 9290 
MOV R5,-(SP) + CRC.NIB,* 9291 
MOV -(SP) + NIB.PAT.* 
MOV #12,-(SP) 
ADD SP, (SP) : ERR.FLG,* 
JSR PC; TST.LNG.WRD 
CMP 12(SP) #1 : ERR.FLG,* 929 
map OS 9296 
.WORD 203 
“WORD SYNC 
“WORD DUMPER , 
MOV MRD. 10,-(SP) ; 929 
MOV MRD. 73,-(SP) | 
MOV = #WRD.24.,-(SP) | 
MOV WURD.64,-(SP) | 
MOV #FOR. FMT ,-(SP) 
MOV #5,~(SP) 
os ane : SP,* 
MOV #10, : 9298 
MOV NIB. SAVE+4,R4 
ASR RG 
ASR RG 
ASR RG 
ASR RG | 
SWAB RG 
BIC - #177770,R4 | 
MOV R4,-(SP5 
MOV R2,-(SP) : NIB.PAT,* | 
MOV #FMT.5,-(SP) 
MOV #4 ,~(SP) 
MOV SP; : SP,* 

3; Ge  %>.0 > CRC.TSTED 3S. 

$ P Z e * 

BNE 13$ 
TRAP 67 
ROR RO 
BHIS 21$ 

: te a LOOP 9230 
CMP R1,4%4 + LOOP,* | 
ae te oer 
RTS PC 





: Routine Size: 215 words 
; Maximum stack depth per invocation: 23 words 





2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE so 
MISCELLANEOUS CODING SECTION 


sML4 
T48:: 
177116 1$: JSR PC,$T48 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 





; Routine Size: 6 word 
: Maximum stack depth ser invocation: 0 words 


: 9310 !<BLF/PAGE> 





SEQ 0437 


2=Dec-1980 09:24:31 TOPS 
2=Dec-1980 09:21:22 wed 


| 
v7 








J_.2 | 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 451 
MISCELLANEOUS CODING SECTION SEQ 0438 | 


ZML4 —Dec-1980 09:24:31 TOPS-20 BLiss- 16 v2(212) 
Be ; years 1 $3384 i30 PA: <NEALE 4.BLI.2 (99) 
51: 9311! 
3¢ ; 9 1g BGNTST 
; 931 
54: 9314 !+4¢ 
35 : 2 13 | i TEST NUMBER: TST 49 
57 : 2 1 TEST NAME: UNIQUE NIBBLE CRC GENERATION TEST 
59: 9319 | TEST DESCRIPTION: 
: 9 i TEST CRC CODES GENERATED FOR ONE CRC 
1: 3 1 GROUP (52 UNIQUE UNIBUS NIBBLES) BY: 
: 3355 i - DOING MASS BUS WRITE TRANSFERSS WITH THE 
9324 FIRST CRC GROUP HAVING 51 NIBBLES 
20865 : 9325 oF e500 * PATTERN AND REMAINING NIBBLE 
20866 ; 9526 WITH PATTERNS OF %8°0000° TO %B'1111". 
20868 : 9328 i 2. THEN IN DATA DIAGNOSTIC MODE CALCULATE 
20869 : 9329 | THE CRC CODE F OR_ THE FIRST CRC 
20870 : 9330 | GROUP AND COMP T AGAINST THE 
20871 : 9331 | HARDWARE GENERATED. CRC CODE. 
snare 3 oae6 i 
20873 : 9 i . REPEAT PATTERN OF %8°0000° TO 28'1111' 
20874 : 9334 | OR EACH OF THE 52 NIBBLES. 
20875 : 9335! 
20876 : 9336 | IMPLICIT INPUTS: 
20877 : 9337} 
20878 : 9338 | A “VECTOR OF 256 WORDS WHERE DATA 
20879 : 9339 | FOR MBUS READS AND WRITES TRANSFERS 
20880 : 9340 | IS FOUND. 
1 8 9341 / 
3 oer & 
20884 ; eee 
20885 : 9345 local 
sees 3 .) DODU_FLG . 'DROP UNIT 
7: 9347 i TEMPORARY STORAGE LOCATION 
; 9 NIB SEL; iSELECTS 4 BITS ‘ONE NIBBLE’ FROM THE 10_BUF 
: 3 49 DODD_FLG = ZEROES: CLEAR THE DROP UNIT FLAG 
: 9351 incr CNT from 0 to 13 do CLEAR THE FIRST 14 I10_BUF WORDS 
; 9398 10_BuF C.CNT) = ZEROES; 
: 95354 incr RD _CNT from 0 to 12 do 'DO THIS TEST ON 13 I0_BUF WORDS 
e n 
; 935 NIB_SEL = -4; ‘RESET THE NIBBLE SELECTOR 
: 9358 incr NIB_TST from 0 to 3 do 'DO THIS TEST ON 4 NIBBLES PER WORD 
5 pa544 begin 
20901 3 9361 if (.WRD_CNT eql 12) and (.NIB_TST eql 2) then exitloop; 'THE LAST 2 NIBBLES ARE NOT TESTED 














CZMLABO ML-11 LOGIC TEST 





MISCELLANEOUS CODING SECTION 


zmL4 


Be Se Se Se Se Se Ge Se Se Ge Be Ge Ge Se Ge Be Be Ge Ge Ge Ge Se Ge Be Ge Se Ge Se Se Ge Se Se Ge Ge Ge Ge Be Ge Ge Ge Se Ge Be Ge Ge Se 


SUSSEEUE LEED ese aeewusOreues ccoes es cceneaes 





NIB ry = EROes SEL + 4; 


TEMP = 


incr my PAT from %b'0000" to %b'1111" by %b°0001" do 


8 Re 4> = .NIB PAT; 
16 aa CNT) = . TEMP; 
mts = write; 
A_GER = ZEROES; 
B_GEN = 
P_GEN = 
A_CAL = 
be: 
= 
CAL_CRC 3 
if ERR_CHK_CRC () 
then ‘ 
E SYNC, DUMPE 
PRINTS (THR_FMT, WRD 5 
PRINTB (FMT_19, -B_GEN 
PRINTB (FMT_20, .B_CAL 
ENDSUB; 
10_BUF C.WRD_CNT] = ZEROES; 
end; 
end; 


if .DODU_FLG IS_SET 
then 


bea 
(.ML_LUN) ; 
DOCLN; 

end 


ENDTST; 


K_ 2 
MACRO M1113 22=DEC-80 12:16 PAGE 452 


33 pec=1980 09:51:22 


SEQ 0439 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>BLSML¢..BLI.2 (99) 


! INCREMENT THE “gr SELECTED 
iCLEAR TEMP LOCATI 


!RUN PATTERNS ON THEIS N/GBLE 


| 
| 


!START OF SCOPE LOOP 

; LOAD PATTERN INTO TEMP _AT THIS NIGBLE 
'LOAD THE GENERATED PATTERN INTO THE I0QUF 
!SET UP A_GOOD BLOCK TRANSFER 

'DO A WRITE TRANSFER 

'WAIT FOR THE TRANSFER TO COMPLETE 

!CLEAR THE GEN & CAL STORAGE LOCATIONS 


!CALL ROUTINE TO CALCULATE THE CRC CODE FOR THIS PATTERN 
'NOW SEE IF THE GEN CRC IS SAME AS CAL CRC 

!REPORT THE ERROR IF NOT THE SAME 

-P_ CAL): 

!END OF SCOPE LOOP 


!CLEAR THIS IO_BUF WORD FO NEXT NIBBLE 


!DROP THIS UNIT IF THE DODU FLAG GOT SET 





2 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 453 
MISCELLANEOUS 





CODING SECTION 
20964 077 110374 $149: JSR R1,SSAVES : 
NO465 O CMP =(§P) ,-(SP) 
20966 ¢ o000n2 CLR 2(SP) 3 DODU.FLG 
N67 6 + CLR 3; CNT 
20968 ¢ 3 18: MOV Ri 3 CNT,* 
20969 0735 ASL 
20970 0735.56 011600 CLR 10.BUF (R1) 
50971 ¢ Sh INC 3; CNT 
0972 073% 000015 Che RO,#15 : CNT,® 
974 tes CLR OR? ; WRD. CNT 
eR les 177774 2s MOV = #4, (SP) ; *,NIB. SEL 
50976 O7 S56 mov R2.AI > WRD.CNT,* 
20978 073564 CLR RS ; NIB.TST 
8 : D7 336 000014 3$ oe R2,414 3; WRO.CNT,* 
2096 0735 000002 CMP R442 3; NIB. TST,* 
D982 07360 BEQ 
2098: less 000004 4$ ae ea 3; *,NIB.SEL 
50985 07361 CLR RS ; NIB.PAT 
0986 07361 5$: TRAP 2 : 
ee Copa : Wa. 
9990 0786; MOV tg ; anya 
0990 073626 Pies 3 ° * 
0991 073650 107446 JSR PC-BLSPU1 
0992 0736: MOV » > *, TEMP 
5099 073636 1600 MOV 10.BuF (R1) > TEMP,* 
19% 0736 117344 8188 #40,aML.REG+40 
moe Oraeey gies i a ane 
0997 07366 ‘ 900007 117326 BICB =. #7 AML. REG*+40 
Fre Thy 11 2 BIS8 RO, aM .RE 
0999 07367¢ 122164 JSR PC. GD.BLK.XFER : 
075 1 117250 MOV #6i am -RE ; 
07370 17314 TSTB = @ML. REG* 
73 BPL 6$ 
073 11 CLR A.GEN : 
073716 11 CLR 8. GEN 3 
005 07572 117224 CLR P.GEN : 
008 073726 11 CLR A.CAL ; 
07373 11 CLR B.CAL : 
} het, 7 
010 073746 159546 JSR PC; ERR. CHK. CRC : 
So12 Orsrse Bec 
‘ 
$1018 073756 TRAP = 55 ; 
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N_ 2 
L430 ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 455 
LLANEOUS CODING SECTION 


a9 


767 177306 i$: -JSR_—s« PC, $49 


TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 
: Maximum stack depth per invocation: 0 words 


rerunrurrunrynrururaniny 
ESSRESISSRSR TS 
PP 


9409 ! 
9410 !<BLF/PAGE> 


| 
= 






3 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 256 
MISCELLANEOUS CODING SECTION SEQ 0443 






104 :ML4 —Dec-19 1:24:31 TOPS-20 Bliss-16 v2(212) 
5, : $5 pecn 1380 $3 Sti35 PA: <NEALE 4.BL1I.2 (100) 
109 3 9411 =! 

1108 ; att BGNTST: 

1109 ; 941 

1110 : 9414 !+4 

11] ; 3413 TEST NUMBER: TST 50 

118 ; $417 TEST NAME: UNIQUE WORD CRC GENERATION TEST 

1115; 9419 | TEST DESCRIPTION: 

1116 : 9420 } TEST CRC CODES GENERATED FOR ONE 

1117 3 me CRC GROUP (13 UNIBUS WORDS) BY: 

21119 : 9423 1. DOING MASS BUS WRITE TRANSFERS 

31120 ; sok USING VARIOUS WORD DATA PATTERENS. 

lice : 9426 2. THEN IN DATA DIAGNOSTIC MODE 

21123 : 9427 | CALCULATE THE CRC CODE FOR THE 

21126 : 9428 FIRST CRC GROUP AND COMPARE IT TO 

1125 ; med THE HARDWARE GENERATED CRC CODE. 

e117 3 3431 IMPLICIT INPUTS: 

21129 : 9433 A “VECTOR OF 256 WORDS WHERE DATA 

21130 ; 3434 FOR MBUS READS AND WRITES TRANSFERS 

21132 : 9436 | : 

21133 : 9437 i 

211% : 9438 

21 35; 9439 Local 

21136 : 9440 DODU_FLG, 'DROP UNIT FLAG 

1137 ; sod TST_PAT; iTEST PATTERN SAVE LOCATION 

31139 3 3445 DODU_FLG = ZEROES; 'CLEAR THE DROP UNIT FLAG 

a1ieg 3 mas incr PAT_SEL from 0 to 3 do 'RUN THE TEST ON 4 PATTERNS 

21143 : 9447 : ‘START OF SCOPE LOOP 

21144 : 9448 CLR_MBUS; 

21145 : 9449 

sii : ats case -PAT_SEL from 0 to 3 of ‘SELECT ONE OF THE 4 PATTERNS 
148 : mide 
149 : 945 (0) : 

1150 ; 9454 TST_PAT = ONES; 
138 : 9456 1: 

1133 3 3457 TST_PAT = %0'052525': 
155: 9459 J: 

1156 ; 9460 TST_PAT = %0°125252'; 

1158 : 9462 (3): 


ASS 








TER 


UISeRs 


0 
0 


RUNVNNVLVVVVYUVYRVYUYYRNANRN NUNN 


MN 
= 


074222 
7% 
7 
7% 
7 
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160 ;ML4 
1161 ; 


SREB US Aaa USeRAROTS 


§ 152 
074242 016703 
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op ec=1980 09:91 :22 
TST_PAT = %0'070707"; 


incr CNT f 0 ¥ 255 do 
10.BUF C-CNT) = .TST PAT; 


GD_BLK_XFER (); 
mCS1 = write; 


!LOAD THE FIRST 13 IO_BUF WORDS WITH TST_PAT 


!SET UP A_GOOD BLOCK TRANSFER 
'DO A WRITE TRANSFER 


TIME L iWAIT FOR THE TRANSFER TO COMPLETE 
A_GEN = ZEROES; iCLEAR THE GEN & CAL SAVE LOCATIONS 
B_GEN = ZEROES; 
P_GEN = ZEROES; 
A_CAL = ZEROES: 
B_CAL = ZEROES: 
P-CAL = ZEROES: 
CAL_crc 0; 'CALCULATE WHAT THE CRC CODE SHOULD BE 
if ERR_CHK_CRC 6) ‘NOW SEE IF THE GENERATED CRC CODE IS THE SAME 
begin 'REPORT THE ERROR IF NOT THE SAME 
E (133, SYNC, DUMPER) 
PRINTB (THR_FMT, WRD 5, WRD_64, WRD_8); 
PRINTB (FMT_19, .8_GEN, .A_GEN, .P_GEN): 
PRINTB (FMT-20, .B_CAL, .A_CAL, .P™CAL): 
_FLG = ONE; 
end; 
ENDSUB; ‘END OF SCOPE LOOP 
if .DODU_FLG IS_SET !DROP THIS UNIT IF THE DODU FLAG GOT SET 
sai" 
(.ML_LUN) ; 
DOCLN: 
end; 
ENDTST: 
107670 $750: JSR R1,$SAVES : 
CLR RS + DODU.FLG 
CLR RG : PAT.SEL 
TRAP 2 ; 
000040 116752 BISB #40,aML.REG+40 : 


117334 MOV ML.DUT ,R3 





TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>BL35ML4.BL1.2 (100) 


SEQ 0444 
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SEQ 0446 | 
T 
PA 


31 
1:22 


3H 


$5 ecm 1900 09 
2-Dec-1980 09 


. , 
“Sat toe: 8 

| ¥ £ 
| : : 
s 
| “ = 
-& . . 5 : 
_ a and = = 
g i. feo oat of 
= aA ee "Sok eee. $e 
2 "SS, Be) 36 
& Evozccategewtuerzetoteasy “2 = eeere 8 
3 CF S% 
e «-Beetpeeeeetesteaebuxeete 5, | SE5c2 3 
2 ¢ 8 sg 3, es 
= cece — — ears ee ers 

g 

| # 


116762 


S085 = 


sauna 
sauapassessgaeecenaety 3o9 8 ae 


SFP FPFSSTES STS 
-.RAARRAARARRALARR PERRERRRAGG 
Sooooocooo 


RANA NNAARSRRR EMER RRR ERROR RRM RAREMRAOINN 


RNNNNNNAANNINANNIN 


ST 


OGIC TE 

MISCELLANEOUS CODING SECTION 
004767 177372 
104466 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 








; seL4 
1 3 3208 
12 9504 
§ $ 9505 
1 $ 3209 
1345 ; 9508 
ei 
21348 ; 9511 
349 : eai6 
21350 ; 951 
21351 ; 9514 
rap} 3 9515 
Sits ; 9516 
21354 ; 9517 
21355 ; 9518 
21356 ; 9519 
21357 ; 9520 
21358 ; 9521 
21359 ; 2256 
sisc0 g 952 
ot3e2 3e5¢ 
Stace : 9526 
21364 ; 9527 
21365 ; 9528 
21366 ;: 95 
21367 ; 95. 
21368 ;: 9531 
21369 ; o2e6 
$1370 3 95. 
ah al ; ek 
$1378 3 95. 
21374 ; 95. 
sist 3 9538 
376 ; 9539 
21377 ;: 9540 
21378 ; 9541 
379 ; 944 
380 ; 954 
i Bs 
384; 954 
385 ;: 9548 
386 ; 9549 
387 ;: 9550 
388 ; 9551 
21389 ; 2336 
21390 ; 955 


3 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE 61 
MISCELLANEOUS CODING SECTION 


33-Dec-1980 09:24:31 Tops-20 Blis 
—Dec-1980 1:22 A: <NEALE>BL 
1 

BGNTST; 


oe 
TEST NUMBER: TST 51 


SEQ 0448 


=16 v2(212) 
4.BL1.2 (101) 


: TEST NAME: CORRECTABLE ERROR SYNDRONE DECODE TEST 
i TEST DESCRIPTION 
i TEST DECODE AND ERROR 
i TO DECODE AND CORRECT 
i SINGLE BIT AND MULTIPLE BI 
RRORS BY: 
i 1. VIA ECC DIAG MODE FORCE SYNDRONE 
i BITS TO DECODE SINGLE BIT AND 
; PLE BIT CHANNEL ERRORS. 
i 2. THEN DOA MASS BUS READ TRANSFER 
i AND EXAM THE IO FOR CORRECT 
BIT COMPLIMENTI 1TRee 
IMPLICIT INPUTS: 
i A “VECTOR OF 256 WORDS WHERE DATA 
i FOR MBUS READS AND WRITES TRANSFERS 
; 1S FOUND. 
' 
i 
ocal 
BITS_XFERED; ‘POINTS TO THE CHANNEL BEING TESTED 
BAI = ‘BEFORE WE START LETS CLEAR OUT THE ML11°S 
10_BUF = e tenoes: 'GOOD BLOCK BY WRITTING ZEROES TO IT 
SD ELK AFER a 
TIME _OUT LOOP; 
BITS_XFERED = 'RESET THE CHANNEL POINTER 
incr, PLOG from 0 to 5 do 'TEST ONE CRC GROUP °6 ARRAY WORDS’ 
n 
incr SEs L from 0 to 35 do 'TEST 36 BITS IN EACH ARRAY WORD 
n 
: ‘START OF SCOPE LOOP 
CLR_MBUS; iCLEAR THE DR 
BITS_XFERED = .BITS_XFERED + 1; ‘INCREMENT THE CHANNEL POINTER 
incr CNT from 0 to 255 do ‘CLEAR THE FIRST CRC GROUP IN THE 10_BUF 


10_BUF C.CNTJ = ZEROES; 








ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 


CZMLABO 
MISCELLANEOUS CODING SECTION 


H 3 
PAGE 462 


SEQ 0449 


v2(212) 


Teoec=1980 09:51:22 PAT NEALESOL IMLS Beto c1019 


PA: NEALE 
: FORCE THIS BIT IN THIS WORD IN ERROR 
'SET UP A GOOD BLOCK TRANSFER 
iCLEAR ECC DISABL 

READ TRANSFER 
Walt FOR THE TRANSFER TO COMPLETE 
'SEARCH THE IO_BUF FOR THE COMP BIT 
'REPORT AN ERROR IF THIS BIT IS NOT COMP 


'SEE IF ANY OTHER BITS GOT COMP'ED 
!'TEST THE I0_BUF FOR ZEROES 

'REPORT AN ERROR IF ANY OTHERS ARE SET 
PHR_5); 


'END OF SCOPE LOOP 


!RESET THE CHANNEL POINTER 

!TEST 36 CHANNELS FOR MULTIPLE BIT ERRORS 
'START OF yt? LOOP 

THE CHANNEL POINTER 

!CLEAR THE FIRST CRC GROUP IN THE I0_BUF 
‘FORCE ALL 6 BITS IN THIS CHANNEL IN ERROR 
'SET A GOOD BLOCK TRANSFER 

CLEAR ECC DISABL 

iMAlt FOR THE TRANSFER TO CMOPLETE 

'SEE IF EVERY 36TH BIT GOT COMP'ED 

'SEARCH THE I0_BUF FOR THE COMP’ED BITS 


3 sML4 
3 9554 
: 9555 FORCE_REM (.PLOG, . CHANNEL); 
3 95 GD_BLR_XFER (); 
3 955 ECT DIS = ZERO: 
3 9558 mLCS1 = read; 
400 : 9559 TIME_OUT_LOOP; 
401 ; 9560 
402 ; 9561 if not FIND_COMP_BIT (.BITS_XFERED) 
3 3266 then 
108 3 ERDF 134 
405 : 9564 ER , DUMPER) 
21406 : 9565 he Pmt WRD_74, WRD_75, PHR_1); 
21407 : 9566 PRINTS (rat “21, Plot, “¢ A ae 
21408 ; 9567 end: 
g1409 : 9568 
410 ; 9569 incr WRD_CNT from 0 to 12 do 
21411 ; 9570 
gl4te : 9571 if .10_BUF C.WRD_CNT] neq ZEROES 
21413 ; 9276 then 
21414 ; 95 ERDF 
21415 : 9574 F (135, SYNC, DUMPER): 
21416 : 9575 INTB (FOR_FMT, WRD_61, WRD_74, WRD_75, 
21417 : 9576 PRINTS (FMT~21, .PLOG, * CHANEL S; 
21418 : 9577 end: 
21419 : 9578 
21420 : 9579 ENDSLB; 
21421 ; 9580 end; 
a ae 
424; e288 
425 : 9584 BITS_XFERED = -1; 
426 ;: 9585 
21427 ;: 9586 incr CHANNEL from 0 to 35 do 
21428 : 9587 in 
31429 : 9588 : 
21430 ; 9589 CLR BUS; iCLEAR THE 
e431 : 9390 BITS_XFERED = .BITS_XFERED + 1: ' INCREMENT 
sles : 959, incr CNT from 0 to 20 do 
21434 : 959. 10_BuF C.CNT) = ZEROES; 
435 ;: 959% 
43%: 9595 FORCE_REM (58, .CHANNEL); 
437 : 9396 GD 5; 
438 : 959 ECT DIS = ZERO: 
439: 9598 cS1 = read; 
440 : 9599 TIME_OUT_LOOP; 
441: 9600 
44g : 9601 incr BIT_OFFSET from 0 to 180 by 36 do 
ape : 3008 if not FIND_COMP_BIT (.BITS_XFERED + .BIT_OFFSET) 
21445 : 9604 then 
21446 : 9605 begin 


!REPORT AN ERROR IF ANY OF THE BITS ARE NOT COMP’ED 
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incr WRD_CNT from 0 to 12 do !ALSO SEE IF ANY OTHER BIT GOT COMP'ED 
ee BUF C.WRD_CNT] neq ZEROES !TEST THE IO_BUF FOR ALL ZEROES 
begin !REPORT AN ERROR IF ANY OTHERS ARE COMP'ED 
F (135, SYNC, DUMPER) 


PRINTB (F FIV. FMT, WRD_61, trp 74, WRD_75, WRD_12, WRD_67); 
——s (FMT_21, 58, >CHANNELS; 


& 


BSSRERRFRRERISIISELSTSARES SESS 


‘END OF SCOPE LOOP 


SRRERESSESESIESER8 






JSR R1,$SAVES : 

BIS8 #10,aML.REG+40 ; 

CLR 10.UF : 

JSR PC.GD.BLK.XFER : 

MOV #61 am. : 

TSTB a@ML.REG+50 

BPL 1$ 

MOV #=-1,R5 : *,BITS. XFERED 
CLR RG + PLOG 
CLR + CHANNEL 
TRAP 2 3 

BISB #40,@ML.REG+40 : 

mov am R2 


wi R2 
BICB 4s #7 , AML. REG+40 


4 BISB ~ Salata 
NC : BITS.XFERED 
a 3: CNT 
R1,R2 ; CNT,* 
R2 
10. BUF (R2) 
1 3; CNT 
R1,4377 3; CNT,* 
4$ 


R4,-(SP) : PLOG,* 


MISCELLANEOUS CODING SECTION SEQ 0450 
zmL4 ~Dec-1980 09:24:31  TOPS-20 BLiss-16 v2(212) | 
“a9 | 35-Dec-1980 09:91:22 PASCNEALEDOL SMG. OL I-2- (101) 
451 ERRDF_ (134, SYNC, DUMPER) ; 
43¢ PRINTB (THR_FMT, WRD_74, WRD_75, PHR_1); 
453 PRINTS (FRT_21,°58, =CHANNELY: 


P| % J 7 22 -_/ 
H v a #3 _ oo * H 
| : 

Bice, § ae , geaee § 
aw 2 e+ Pe 7 ., : eo ~ ™ 2 Ts . 4 ' ‘eo ~ = 
age & Ss HES gSR5 - “SE gonb. 

SeOh Rawr CounSe sees eaeoee was Se ESS 


2 Bos 
EEVSBARS Stitt Senet 
gs 


~_ 
1st 
TRA 
-WORD 
- WORD 
- WORD 
mO¥ 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
MOV 
MOV 
MOV 
MOV 
MOV 


pas Senepsnscs SSSpneEEESeEBEEses 


sML4 


‘ 2 3x 


Bete : see Af ze BS se 
EE 


= a <emannen 
REREREEERSERREEERERERERE RRR 
RRR RRR RNAI ARR RRA RRA A 
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MISCELLANEOUS CODING SECTION SEQ 0452 | 
59 sML4 $5 Dec~ 1389 09:24:31 
1 : : —Dec-1980 09:21:22 
26¢ TRAP «16 
ADD #22,SP : 
34 8$: INC R1 + WRD.CNT 
ome R1,4146 : WRD.CNT,* 
a8 CMP (SP)+, (SP)+ : 
TRAP 6 : 
ROR RO 
BLO 3$ 
INC R3 > CHANNEL 
2¢ CMP R3,463 : CHANNEL,* 
BLE 3s 
574 075256 INC R4 : PLOG 
575 ‘ - a4 R445 e PLOG,* 
378 ibe MOV #=-1,R5 : *,BITS.XFERED 
278 ' CLR R3 3 CHANNEL 
9S: TRAP 2 : 958 
21580 07% 115710 BISB £40,@ML.REG+40 F 
581 0753 MOV aL R4 
38¢ BIC fi RS 
115672 BICB = s #7 , Hu. .REG*+40 
584 ¢ BISB = R4,@ML.REG+40 
585 0753. INC : BITS. XFERED 95 
586 075330 CLR R1 : CNT 95 
587 07533< 10$ MOV R1,R2 3 CNT,* 959. 
21588 075. ASL R2 
589 0753: CLR 10. BUF (R2) 
590 075: INC R1 : CNT 95 
591 0753 CMP R1,426 : CNT,* 
238 BLE 1 
07535¢ MOV = (SP) : 
59% 07535 MOV R3,-(SP) t CHANNEL, * 
595 Jet, JSR PC. FORCE .REM 
2% JSR -@-BLK-XFER : 95 
075370 115676 BICB 40s #2. aL .REG+1 : 95 
395 te — 11$ ere “ReGe : : 9 
a | ae 
CLR : BIT.OFFSET 9601 
075 12$: MOV (SP) + BIT.OFFSET,* 9603 
ADD * (SP) t BITS. XFERED,* 
606 Je JSR PCF IND.COMP.BIT 
606 NPL Oe ROR 
607 07543 BLO 1 
608 07543. TRAP § : 9606! 
' -WORD 206 
610 ¢ “WORD SYNC 
ei) ; 00 MOV Re (SP) 9607 
118 75446 b139ee $b7 35 MOV MuRD.75,-(SP) ’ 
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MISCELLANEOUS CODING SECTION SEQ 0454 


te Bo pent ob0 osstioe pi 


DAR 
rN 


3; Routine Size: 271 words 
+ Maximum stack depth per invocation: 18 words 


75676 T51:: 
76 004767 176736 1$: JSR PC,$T51 5 
75 104466 TRAP = «66 
75704 ROR 
75706 103 BLO 1$ 
75710 000207 RTS PC 


; Routine Size: 6 words 
3; Maximum stack depth per invocation: 0 words 


RESGSRP RSIS S OE BA SA 


aos 


; 9625 !<BLF/PAGE> 
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~ 3e-pec=1980 08:51:22 PA: EALEDEL SLC. BL <2 (102) 


i TEST NUMBER: TST 52 
TEST NAME: UNCORRECTABLE ERROR SYNDRONE DECODE TEST AT CHANNELS > 35 


TEST DESCRIPTION: 
TEST SYNDRONE DECODE TO DETECT BUT 
Not CORRECT UNCORRECTABLE CHANNEL 
ERRORS BY: 


1. VIA_ECC DIAG MODE FORCE SYNDRONE 
BITS TO INDICATE CHANNEL ERRORS 
AT WORDS OF A_CRC GROUP BUT AT CHANNELS 


2. 00 A MASS BUS READ TRANSFER 
3. THEN EXAMIN THE IO BUF FOR NO 
BITS COMPLIMENTED AND ECH AND 
BITS SET 
IMPLICIT INPUTS: 


10 
A VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 


Baas Wea TI SST so ton aosese 


NUNN 


gg ee g 


IS FOUND. 
740 _ 
741 
rs local 
748 PLOG; 'INDEX INTO REMAINDER TABLE ‘REM_TBL’ 
765 ‘FIRST LETS CLEAR THE ML11°S GOOD BLOCK 
746 io. = OMe EROES: IBY WRITING ZEROES TO IT 
767 : GO BLK. MFER ©: 
748 ; mts = onan: 
749 : TIME_OUT_LOOP: 
Be : iner _PLO6_SEL from 0 to 6 do ‘TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 
: n 
754: 9671 case .PLOG_SEL from 0 to 6 of 'SELECT A PLOG VALUE 
fe 33 3 set 
1757 : 9674 (0) ‘POINTS TO WORD 0 IN THE CRC GROUP 
758 : 9675 PLOG = 0; 
759 : 967 
1760 : 96 (1) ‘POINTS TO WORD 1 IN THE CRC GROUP 


MISCELLANEOUS CODING SECTION SEQ 0455 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0456 
7ML4 —Dec-19 :24:31  TOPS-20 Bliss-16 v2(212) 
768 3 $5 peen 1380 oe: 1:22 PA: <NEALE 4.BL1I.2 (102) 
765 ; 9678 PLOG = 1 
1766 : 9679 
2176 ; 9680 (2) : 'POINTS TO WORD 2 IN THE CRC GROUP 
768 ;: 9681 PLOG = 2; 
1769 ; ges 
1770 : (3) : 'POINTS TO WORD 3 IN THE CRC GROUP 
771: 9684 PLOG = 3; 
177e : 9685 
: 9686 (4) : 'POINTS TO WORD 4 IN THE CRC GROUP 
77% : PLOG = 4 
21775 : 9688 
1776 : 9689 (5): 'POINTS TO WORD 5 IN THE CRC GROUP 
; 9690 PLOG = 5; 
21778 : 9691 
e779 : 969 (6) : 'POINTS TO ALL 6 WORDS IN THE CRC GROUP 
780 ; 969 PLOG = 58; 
21781 ; G6 94 tes; 
1 78¢ : 9695 
21 78S 9696 incr CHANNE L from 36 to 62 do 'TEST AT CHANNELS > 35 TO FORCE UNCORRECTABLE ERROR 
3 n 
21785 : 9698 : ‘START OF SCOPE LOOP 
$1786 : 9699 CLR_MBUS; iCLEAR THE DRIVE 
21788 : 9701 incr COUNT from 0 to 255 do 'CLEAR THE FIRST CRC GROUP IN THE 10_BUF 
$1799 ; 9708 10_BUF C.COUNT) = ZEROES; 
21791 : 9 FORCE_REM (.PLOG, . CHANNEL); FORCE UNCORREC TABLE ERROR AT THIS WORD AND CHANNEL 
21792 : 9705 GD RO: ‘SET UP A GOOD BLOCK TRANSFER 
21793 : 9706 Ect DIS = = ZERO; i CLEAR ECC DISABLE 
2179 : 9707 MmLCS1 = READ TRANSFER 
31795 ; 9708 TIME “OUT. ne? iMatt FOR THE TRANSFER TO COMPLETE 
21797 : 9710 if mot ((.ECH_ERR) and (.UNC_ERR)) 'SEE IF THE ERROR WAS DETECTED 
798 ;: 9711 then 
799 : 971 begin 5. ‘ERROR IF NOT DECTECTED 
800 ; 971 E + DUPER) 
801 ;: 9714 ERINTB ( POR | emre WRD_67, WRD 10, WRD_76, WRD_9); 
80¢ : 9715 PRINTB (FMT_21, .PLOG, .CHANNELS; 
804 : 3 anny 
805 ;: at 4 incr CNT from 0 to 12 do 'SEE IF ANY CORRECTION WAS DONE 
B07 : 3 o if .10_BUF C.CNT] neq ZEROES 'SEARCH THE I0_BUF FOR ALL ZEROES 
809 ; 9 g in ‘REPORT AN ERROR IF ANY CORRECTION WAS DONE 
By : 3736 Pap ATO ome wo RD AT ino 74, WRD_75, WRD_12, WRD_67) 
Bie ; 9725 PRINTS (FMT~21, Prot. * CHUAREL 5; > as 
8135 ; 9 end; 
814 ; 9727 
21815 : 9728 ENDSUB; 'END OF SCOPE LOOP 
21816 : 9729 end; 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
873 
74 
75 
a 11 ASL R2 
11 CLR 10.BUF (R2) 
78 1 INC R1 ; COUNT 
i cH ed : COUNT,* 
1 MOV 7 (SP) : PLOG,* 
1 MOV R4,-(SP) : CHANNEL, * 
1 JSR PC, FORCE .REM 
1 JSR »6D.BLK.XFER ; 
5 BICB #2.aML.REG+1 ; 
1 14$ Toye 1a Re . 
3 me i 
61 B1TB #100,@ML.REG+60 : 
890 0761 BEQ 15. 
: ist -REG+210 
15$: TRAP 55 : 
>> WORD 210 
66 7% MOV MURD.9,-(SP) : 
898 076216 46 isa MOV MRD. 76,-(SP) 
899 07622¢ 746 MOV MRD. 10,-(SP) 
900 076226 746 40 MOV MRD .67,-(SP) 
901 07623¢ 46 006046 MOV MF OR. FMT.,~(SP) 
$e ene Sess me s 
i o e * 
90% 076244 106414 TRAP _-'16 
905 ed Rog 0416 MOV a ihe e CHANNEL , * 
id 5533 MOV .~(SP) : PLOG,* 
595¢ 46 005534 MOV #FMT.21,-(SP) 
BOS Brees 46 000003 mov #3.-(SP5 a 
"ae e e * 
910 076266 106414 TRAP ‘14 
911 07626 ADD #22,SP 3 
vig 146€: CIR R1 > CNT 
+4 Z 17$: on ane : CNT,* 
915 Ist 10.BUF (82) 
aS TRAP 48 : 
918 «WORD 211 
919 “WORD SYNC 
.WORD DUMPER 
MOV WED .67 .~(SP) : 
MOV AR. 1g.~(SP) 
MOV MRD.75.-(SP 
MOV MRD. 74,-(SP) 
MOV #URD.61,-(SP) 
MOV #FIV.FMT (SP 
MOV #6,-(SP) 
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CZMLABO ML-11 LOGIC 
MISCELLANEOUS CODING SECTION 
3ML4 
g $ 
9 910600 MOV RO ; SP,* 
9 7 10441 TRAP 4 
9 1041 MOV R4, (SP) 3; CHANNEL,* 
1 MOV R3,-(SP) ; PLOG,* 
9 46 005534 MOV WERT .21,-(SP) 
12746 000003 MOV #3,-(SPS 
9 1 MOV , 3; SP,* 
9 04414 TRAP 14 
940 000024 ADD #24,SP 3 
941 18$: INC R1 3 CNT 
oes 127 000014 CMP R1,414 ; CNT,* 
7641 1 BLE 
ee 7641 CMP (SP)+, (SP)+ : 
945 07641 TRAP r 
946 07641 ROR 
947 103614 BLO 12$ 
8 204 INC 3 CHANNEL 
969 7 000076 R4,476 3; CHANNEL,* 
21950 1 BLE es 
951 0764. NC R 3; PLOG.SEL 
328 764, 27 000006 RS 46 ; PLOG.SEL,* 
076440 BGT 19$ 
$1333 076442 000167 177304 JMP 2s 
thee 076446 000207 19$: RTS PC $ 
21957 ; Routine Size: 175 words 
$1328 3; Maximum stack depth per invocation: 18 words 
21 
aber} 
968 
sore 076450 T52:: 
21 076450 0064767 177236 1$: JSR PC,$T52 3 
219764 076454 104466 TRAP 66 
21975 076456 ope ROR RO 
21976 076460 103 BLO 1$ 
4b 44 076462 000207 RTS PC 
21979 ; Routine Size: 6 words 
21980 + Maximum stack depth per invocation: 0 words 





4 


F 


MACRO M1113 22=DEC-80 12:16 PAGE 473 


IC 
ING SECTION 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS COD 





! <BLF /PAGE> 


9734 


& 
1 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE or 


CZMLABO ML-1 
MISCELLANEOUS CODING SECTION SEQ 0461 
993 34 -Dec-1980 09:24:31 en yA mis 16 V2(212) 
ope 3 3s pec n 1380 93:34:35 >BL 3ML4.BL 1-2 (103) 
} 9735 ! 
1908 : 9 BGNTST; 
998 : i) 
99 : 9 '44 
o: 9739 ; TEST NUMBER: TST 53 
: 9761 1 TEST NAME: MULTIPLE CHANNEL ERROR SYNDRONE DECODE TEST 
3 9743 |! TEST DESCRIPTION: 
: 9744 | TEST SYNDRONE DECODE TO DETECT BUT NOT 
se00e : 9745! CORRECT UNCORRECTABLE MULTIPLE CHANNEL 
7: 9746 =! ERRORS BY: 
22008 ; 9747 ! 
: 9748 ‘| 1. VIA ECC DIAGNOSTIC MODE FORCE SYNDRONE 
10 ; 9749 ! BITS TO INDICATE MULTIPLE CHANNEL ERRORS 
22011 : 9750 ! BY ASSIGNING CRC_A EQUAL TO CRC_B 
ssolg $ 9751 ! 
22013 ; 9752 | 2. DO A MASS BUS READ TRANSFER 
22014 ; 9753! 
22015 : 9754! 3. THEN EXAMIN THE 10 BUF FOR NO BITS 
22016 ; 9755! COMPLIMENTED AND ETH AND UNC BITS SET 
22017 ;: 9756 =! 
22018 ; 9757 | IMPLICIT INPUTS: 
22019 : 9758 =! 10_| 
22020 : 9759 | A “VECTOR OF 256 WORDS WHERE DATA 
22021 ; 9760 : FOR MBUS READS AND WRITES TRANSFERS 
$5088 5 971 ! 
22024 ; 97 ! 
$508? 3 9764 !-— 
3 9765 
22027 ;: 97 local 
22028 ; 9760 PLOG; ' INDEX INTO REMAINDER TABLE ‘REM_TBL' 
22030 : 9769 BAI = ONE; 'FIRST LETS CLEAR THE ML11°S GOOD 
31 ; 9 10_BUF = ZEROES; IBLOCK BY WRITING ZEROES TO IT 
: 9771 GD BLK_XFER (); 
: 9 mLCS1 = write; 
ssoee 3 he TIME_ ; 
: 9775 incr PLOG_SEL from 0 to 6 do 'TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 
3B: 3509 — 
39 : 9778 case .PLOG_SEL from 0 to 6 of ‘SELECT A PLOG VALUE 
Sor0 3 9779 set 
d: He [0] ‘POINTS TO CRC WORD 0 
Airs 5 ores PLOG = 0; 
2044 ; gS 
2045 ; 9784 (1): ‘POINTS TO CRC WORD 1 
sees 3 9785 PLOG = 1; 
2047 ;: 9786 
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CZMLABO 
MISCELLANEOUS CODING SECTION SEQ 0462 
9 M4 —Dec-1 7:24:31  TOPS-20 Bliss-16 v2(212) | 
9; 35 ec S80 $3331 i320 PA: <NEALE>BL3ML4.BL1.2 (103) 
9787 (2) : 'POINTS TO CRC WORD 2 
ores PLOG = 2; 
Spee 9790 (3) : 'POINTS TO CRC WORD 3 
9791 PLOG = 3; 
7 979 
22038 979 (4] : 'POINTS TO CRC WORD 4 
9794 PLOG = 4; 
9795 
1 796 'POINTS TO CRC WORD 5 
22066 
22068 


Be Be Se Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge 
2] 
| 
w 
ae) 


PRINTB (FMT~21, .PLOG, + ial Ss; 
end; 


ENDSUB; 'END OF SCOPE LOOP 
end 


9798 
9799 (6) : 'POINTS TO ALL 6 WORDS IN CRC GROUP 
9800 PLOG = 58; 
9801 tes; 
22067 9802 
980 incr CHANNEL from 1 to 35 do 'TEST 35 CHANNELS STARTING AT CHANNEL 1 
22069 9804 in 
22070 : 9805 ; ‘START OF SCOPE LOOP 
2071 : 3806 CLR_MBUS; iCLEAR THE DRIVE 
22073 : 9808 incr COUNT from 0 to 255 do !CLEAR FIRST CRC GROUP IN THE 10_BUF 
220% : 9809 10_BUF C.COUNT) = FEROES: 
22076 : 9811 FORCE_REM (.PLOG, .CHANNEL);: 'FORCE ERR AT THIS WORD AND CHANNEL 
22077 : 3812 CRC_A = .CRC_B; CREA EQ. oh CRC B CAUSES TH THE UNC ERROR 
78 : 981 GD BLK _XFER @: iSET TRANSFER 
79 : 9814 ECT _DIS = ZERO: iCLEAR etc OT SABLE 
22080 ;: 9815 MLCS1 = read; 'DO A READ ER 
oes 5 3816 TIME_OUT_LOOP; iWAIR UNTIL THE TRANSFER IS COMPLETE 
: 9818 if not ((.ECH_ERR) and (.UNC_ERR)) ‘SEE IF THE ERROR WAS DETECTED 
22084 ;: 9819 then 
22085 : 9820 'REPORT ERROR IF NOT DETECTED 
seoes 3 oB53 ERRDE (138 (FORPMT: WRD 77 ERD 10, URD_76, WRD_9); 
: 9838 PRINTB (FMT aot Peo. * CHAREL 5; 
3 ease end: 
; wer incr CNT from 0 to 12 do 'SEE IF ANY ERROR CORRECTION WAS DONE 
; 8 if 10 BUF [.CNT] neq ZEROES 'TEST THE I0_BUF FOR ALL ZEROES 
: ons ‘ERROR IF ANY BITS GOT FLIPPED 
; 9831 peer (139, 
; 9852 ERIWTE (FIV, Sere "WRD ae” URD_74, WRD_75, WRD_12, WRD_67): 
: 9834 
; 9835 
: 9836 
3 9837 
; 9838 
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MISCELLANEOUS CODING SECTION SEQ 0464 
| 
22160 :ML4 33-Dec-1980 09:24:31 TOPS 
36 6 3 —Pec-1980 09: :22 -~ 
Ae PE pos com sos 
55165 CMP «R137 ; COUNT,* | 
Ae my, 
r. ‘ MOV o=(SP) 3 PLOG,* 9811! 
7 MOV R4.-(SP) * CHANNEL, * 
7 JSR PC.FORCE. 
se. BIC . . os 
o 2 ‘ e 
x. a 076 B1¢B @ML -REG+150 
22173 C BIS8 R2,aML.REG+150 
217% C JSR GD.BLK.XFER : 981 
Be Be pics siesta : 3 
2 8 07675¢ 148: TsTe grt ‘RESO , 
z. 4 ‘ ‘ B178 #100. aL .REG+60 : 981 
a Ist -REG+210 
53 076 15$: TRAP § ; 9821 
518% 077000 WORD 212 
z & 07700 WORD  § | 
2187 077006 MOV MURD.9.-(SP) : 9822) 
2188 “aait MOV M#WRD.76,-(SP) 
2189 ¢ MOV WRO.10,~(SP) 
55190 0770: MOV MRD. 77.~(SP) 
2191 077026 MOV  #FOR. FMT ,~(SP) 
98 Orr my 85S) » | 
' 2) Se e Py o* 
22194 O77 TRAP ‘14 
22195 0770 MOY R4, (SP) 3: CHANNEL,* 
Ze 38 MOV R3,-(SP) * PLOG,* 
7. 0770. MOV #EMT.21,-(SP) 
2198 Or MOV =: #3, ~ (SPS 
22199 OPPOSE + an — 
52201 Tha! . ADD #22.SP e 
52202 077066 16$: CLR R1 + CNT 
22 203 7707 173: = ah Re : CNT,* 
2 Ist ier 
Fe eu ‘ TRAP 5 6 
2220 ' eWORD 213 oe 
22209 ¢ -WORD § 
22210 ¢ “WORD 
92011 ¢ MOV MURD.67,-(SP) : 9832 
222 § ‘ MOV -12,-(SP) 
59218 0 MOV #URD.75.~(SP) 
52214 C MOV WIRD. 74.-(SP) 
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3ML4 
7174 MOV MURD.61,-(SP) 
MOV #FIV.FMT ,=(SP) 
MOV #6,-(SP) 
MOV SP .RO 
TRAP 14 
MOV R4, (SP) 
MOV R3,-(SP) 
5534 MOV #FMT.21,-(SP) 
ate MOV #3,-(SPS 
MOV SP, 
TRAP 14 
000024 ADD #24,SP 
18$: INC 1 
000014 CMP 1,414 
BLE 178 
CMP (SP)+, (SP)+ 
TRAP 67 
ROR RO 
BLO 12$ 
INC RS 
000043 CMP RS, 443 
BGT 19$ 
177372 JMP a 
19$: INC 
000006 CMP RS .A6 
BGT 208 
177256 JMP 2s 
20S: RTS PC 
; Routine Size: 186 word 
9 > Maximum stack depth per ” tupieut tone 
5 
J 
077250 T53:: 
3 004767 177210 1$: JSR PC,$T53 
0 096000 ROR ORO 
70 103 BLO 1$ 
000207 PC 


18 words 


CNT 
CNT,* 


CHANNEL 


; CHANNEL ,* 


; PLOG.SEL 


PLOG.SEL,* 


SEQ 0465 


g —Dec-1980 09:24:31 T 
—Dec-1980 09:21:22 PA: 


om bot Od Ba Bd | 








~w 


R 
at 
z 
z 
% 
: 
as 
6 
N 
rs 
g 

| 2 


2 

5 8 
A 
: 
z g 
s me 
vf 2 


5 
- 
88 
a 
7 
# 


3 
; 


6 words 
; Maximum stack depth per invocation: 0 words 


RERKS52 
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MISCELLANEOUS CODING SECTION SEQ 0467 


N 








e 


So teeming cnet tn, 





35-Dec-1960 09:21:22 PASEALEDOL IMLS. BLI-2 (106) 


t 
BGNTST: 


'44 
TEST NUMBER: TST 54 


TEST NAME: SINGLE BIT ERROR SYNDRONE GENERATION & DECODE TEST 
TEST evant 


T_SYNDRONE GENERATION, SYNDRONE DECODE 
i, CORRECTION FOR SINGLE BIT CHANNEL 


i 
i 

i 

i 

i 

i 

i 

i 1. CLEAR _ FIRST CRC GROUP_IN THE 
10_BUF AND GOOD BLOCK TO ZEROES 

i 2. VIA DATA DIAGNOSTIC MODE FLIP A BIT 
TO A ONE 

i 3. THEN DO A MASS BUS READ TRANSFER AND 
i EXAMIN THE IO BUF FOR ZEROES INDICATING 
THE CORRECTION WAS PERFORMED 

4. REPEAT WITH ALL BITS IN THE CRC GROUP 
prLeet INPUTS: 

i A_ VECTOR OF 256 WORDS WHERE DATA 

FOR MBUS READS 

i 
i 
i 
i 
i 
i 
fam 


AND WRITES TRANSFERS 
IS FOUND. 


PD_TEMP 
A BIT VECTOR OF 16 BITS WHERE THE READ 
PROM DATA IS STORED AND ACCESSED FROM. 


a? 
'DONE FLAG 
NB PAT bitvector (4), ‘STORAGE FOR SBE DATA GENERATED 
iPOINTER WHERE SBE IS TO BE WRITTEN 
@ GRD ENT: iCOUNT OF WHERE GOOD "NIB_SEL’ ARE F 


A from 0 to 5 do ‘FORCE SINGLE BIT ERRORS IN ONE CRC GROUP 


en from 0 to 35 do 'FORCE SBE*S AT EACH BIT OF A WORD 


incr CNT from 0 to 255 do 


!CLEAR FIRST CRC GROUP OF I0_BUF 
10_BUF C.CNTJ = ZEROES; 


N 4 
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MISCELLANEOUS CODING SECTION SEQ 0468 
22340 :ML4 —Dec-1 1:24:31  TOPS-20 BLiss-16 v2(212) 
ge: ; $3 pee 1980 $3 Shige PA: <NEALE 4.BL1.2 (104) 
- a 
92345 : 
22344 ; CLR MBUS; 'CLEAR THE DRIVE 
22345 ; GD ER (); iSET UP A BLOCK TRANSFER 
22546 5 mtsi = write; 1DO A WRITE TRANSFER 
22347 ; TIME_OUT_LOOP; ‘WAIT UNTIL THE TRANSFER IS COMPLETE 
22348 ; CLR : 'CLEAR DRIVE AGAIN 
22349 ; 1 = ZERO; iCLEAR DONE FLAG 
22350 ; 7 ; iRESET COUNT 
59351 ; mLB1 =" ZEROES; iLOAD THE DATA DIAG REG (BITS. 0-38) 
02352 ; = S; iWITH ZEROES PAT AND CRC 
92353 ; 9905 = Xo’ ‘ZEROES PAT 
52354 ; 9906 NIB_SEL = .BIT_CNT/4 iCALCULATE THE NIBBLE WHERE THE SBE IS TO GO 
99355 ; 990 ER (7 ‘SET UP A DATA DIAG MODE TRANSFER 
22356 ; 9908 mLCS1 = write; 'DO A WRITE TRANSFER 
ge350 9909 DELAY (ONE_US); iGIVE THE PROM DATA TIME TO GET OUT 
ee Ps 
92359 ; 9911 do ‘FIND THE GOOD NIB AT THE TESTED WORD 
22360 ; eae begin 
22361 : 9313 PD_TEMP = .MLPD; 'READ THE PROM DATA FOR THIS ARRAY WORD 
‘ide s 
22363 : 9919 if .PD_TEMP C.NIB_SELJ IS_SET 'IS THIS A GOOD NIBBLE 
92365 : peat Ler AT-CUX = ONE 'JF NOT THEN GET THE NEXT ARRAY WORD 
22366 ; e.se 
92367 : 9919 begin ‘ELSE SEE IF WE ARE AT THE TESTED WORD 
02368 ; 9320 GD_WRD_CNT = .GD_WRD_CNT +1; ‘UP THE C 
52569 9321 iAND SEE IF WE ARE DONE 
22371 ; 9328 if .GD_WRD_CNT eql .WRD CNT then DONE = ONE else DAT_CLK = ONE; 
coale 3 9924 
L. 3 9925 end; 
22374 ; 2968 
L. $ 99. end 
32376 i 99 until .DONE IS_SET: 'REPEAT UNTIL WE ARE DONE 
22378 ; 99 NIB_PAT = 'CLEAR THE SAVE LOCATION 
22379 ; 9931 NIB 4)" ene LAND SET THE SBE IN THIS NIBBLE 
22380 ; 99 Pree ="7 'CLEAR THE OTHER NIBBLES IN THIS ARRAY WORD 
go381 39 bere = fe ‘TO BE ZEROES PATTERN AND ZEROES CRC PATTERN 
2383 ; 9935 pie ae ee .NIB_PAT); ‘LOAD SBE INTO SAVE LOCATION 
22384 ; 99 WRT_LNG_WRD; - 1AND WRI Info ne, BATA DIAG RES*s 
22385 ; 9 — PAT CU ONE a. CLOCK oe 
e250 5; 7 $ 
22387 ; 9939 BGNSLB; iSTART OF SCOPE LOOP 
22388 ; 9940 CLR : iCLEAR OUT THE DATA DIAG MODE XFERR 
22389 ; 9941 GD ER : iSET UP A GOOD BLOCK TRANSFER 
92390 ; 9308 ECT DIS = = ZERO; iCLEAR ECC DISABLE 
52391 : 99% mLCSI iAND READ OUT THE SBE 
52598 99% TIMEOUT LOOP; 
023% : 9946 incr CNT from 0 to 13 do 'SEE IF THE SBE WAS CORRECTED 





ee ———— 






5 , 
MACRO M1113 22=DEC-80 12:16 PAGE £82 
TION SEQ 0469 | 


RCI BH ERLE 






: 9947 
o: 9948 if |. 10_BUF C.CNT] neq ZEROES ‘TEST THE I0_BUF FOR ALL ZEROES 
; 9950 begin 'ERROR IF THE ERROR WAS NOT CORRECTED 
3 9951 E (140, SYNC, R); 
3 9996 PRINTB (THR_FMT, PHR_12, WRD_76, WRD_9); 
: 995 PRINTB (FMT~22, .WRD-CNT, .BYT_CNT); 
: o32¢ end; | 
Fer 4 : 9996 ENDSUB; ‘END OF SCOPE LOOP 
22409 ;: 995 end; 
22410 : 9958 
11; 9959 end; 
2412 ; 9960 
: 3 9961 ENDTST; 
0 004167 104626 $754: JSR R1,SSAVES : 9841 
ees 1 1% 000010 SUB #10,SP 
9 7% 1 CLR R1 : WRD.CNT 
4s 1$: CLR R + BIT.CNT 
3: CLR + CNT 989 
: MOV R3,R4 > CNT,* 
ASL 4 
011600 CLR 10.BUF (R4) 
005203 INC R3 : CNT 989 
32650 4 iad 000377 cme R3,4377 : CNT,* 
is Bree Uizree Pe TH Ris Rinse own | 
22434 0 1 F558 BIC ma BUT RG 
1 7 113646 BICB = #7 , AML. REG+40 
150477 113642 BISB R46,aML.REG+40 
767 116504 JSR C.GD.BLK.XFER ; 
24 56 1 113570 MOV #6\ a -REG : 
39 i 11 4$: iste ana .REG+ 
cared 1 33 000040 113614 BIS8 #40,@ML.REG+40 : 
77 114176 MOV R4 
177770 BIC R4 
77610 909007 113576 B1(B ML .REG+40 
5 077616 150677 11 BISB R4,aML.REG+40 
AG 77. 990002 CLR 2(SP) > DONE 9901 
22648 One H at 143 COR oa ’AEG+170 a 390 508 
22449 077436 005077 W3a95 CLR aM .REG+200 : 9904 








PA: 


SEQ 0470 | 


-Dec-1980 oo egt ot 


$e pec 1980 09:21:22 


5 
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PRERER EERE ARERE REY 


ROBE z a 


2 GD.WRD.CNT ,WRD.CNT 


“ im N = *. * = *. *. 
Se GeeEe = sy 5 : 
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2 § cy . 
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100e 7s 
100076 
100800 
100302 
100304 
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177012 
000010 


176766 





18$: 


19$: 


20S: 


T54:: 
1$: 


3ML4 


boom 


3; Routine Size: 
3: Maximum stack 


JSR 
TRAP 
ROR 


BLO 
RTS 
; Routine Size: 


5 
MACRO M1113 22=DEC-80 12:16 PAGE as 


#EMT.22 


o 


259 wo 


depth & a — 


PC, $T54 
66 


RO 
1$ 
PC 


6 words 


> Maximum stack depth per invocation: 


* SP,* 


; CNT 
; CNT,* 


; BIT.CNT 
; BIT.CNT,* 


; WRD.CNT 
; WRD.CNT,* 





SEQ 0472 | 


TOPS 
PA:< 


AED Bo 


= 


re ba 





me 
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MISCELLANEOUS CODING SECTION SEQ 0473 
18 :ML4 -Dec-1 1:26:31 fors-20 Blis 16 v2(212) | 
Ben 3 $5 pee~ 1880 9 2:21:22 >BLSML4.BL1.2 (104) 
| <BLF /PAGE> 









22645 


22659 


5 
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MISCELLANEOUS CODING SECTION 


M4 


32-Dec-1980 09:24:31 —TOPS-20 Bliss—16 v2(212) 


SEQ 0474 


-Dec-19 2:21:22 PA: <NEALE>BL5ML4.B8L1.2 (105) 
9963! 
9964 BGNTST; 
9965 - 
3367 i TEST NUMBER: TST 55 
9968 


TEST NAME: MULTIPLE BIT ERROR SYNDRONE GENERATION AND DECODE TEST 


i 
i 
9971! TEST DESCRIPTION: 
pad} i hs SYNDRONE GENERATION, SYNDRONE DECODE 
99 i AND ERROR CORRECTION FOR MULTIPLE BIT 
pad CHANNEL ERRORS BY: 
9976 1. CLEAR THE FIRST CRC GROUP_IN THE 
41h 10_BUF AND GOOD BLOCK TO ZEROES 
9979 | 2. DATA DIAG MODE FLIP ALL BITS IN 
pa A CHANNEL TO ONES 
p04 i 3. THEN DO A MASS BUS READ TRANSFER AND 
i EXAMIN THE IO BUF FOR ZEROES INDICATING 
ge THE CORRECTION WAS PERFORMED 
eae 4. REPEAT FOR ALL CHANNELS IN THE CRC GROUP 
9988 | IMPLICIT INPUTS: 
9989 TEMP 
9990 | A BIT VECTOR OF 16 BITS WHERE THE READ 
p40 PROM DATA IS STORED OAND ACCESSED FROM. 
$008 i 10_BUF 
9994 | A “VECTOR OF 256 WORDS WHERE DATA 
9995 | FOR MBUS READS AND WRITES TRANSFERS 
999% IS FOUND. 
9997 | 
9998 | 
9999. i 
10000 
10001 Local 
He 4 NIB_PAT : bitvector (4], !STORAGE FOR SBE TO BE GENERA 
1 NIB"SEL, ;POINTER TO WHERE ERROR IS 10. BE WRITTEN 
His GD_ORD_CNT; 'COUNT OF WHERE GOOD *NIB_SEL* ARE FOUND 
ions E2_TEMP<12, 3> = %b°110'; ‘LOAD DATA STRUCTURE WITH ZEROES CRC PATTERN 
ioe incr BIT CMT from 0 to 35 do !TEST FOR MULTILPLE ERRORS AT 36 CHANNELS 
0009 n 
Ie CLR_MBUS ; 'CLEAR THE DRIVE 
ils incr CNT from 0 to 255 do !CLEAR FIRST CRC GROUP IN THE I0_BUF 
HF 10_BUF C.CNTJ = ZEROES; 


H_ 5 
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MISCELLANEOUS CODING SECTION SEQ 0475 
579 :ML4 —Dec-1 1:24:31 TOPS-20 BLliss-16 v2(212) 
680 ; ype ts 1 $3 :$4 35 PA: <NEALE 4.BL1.2 (105) 
: 10015 GD BLK_XFER QO: 'ALSO CLEAR THTE FIRST CRC GROUP 
: 1 16 mtsi = write: ‘IN THE ML11°S GOOD BLOCK 
: 1001 TIME_OUT_LOOP: 
; 10018 GD_WRD_CRT = ZERO; 'CLEAR C 
3 1001 D1-TEMP = ZEROES: iCLEAR D1_TEMP 
: 1 D2-TEMP = ZEROES: iCLEAR D2- TEMP 
: 10021 NIG_PAT = ZEROES; ‘CLEAR NIGBLE PATTERN 
3 1 NIB_SEL = .BIT_CNT/4; iCALCULATE THE NIBBLE TO BE IN ERROR 
3 1 NIB-PAT C.BIT_CNT mod 4) = ONE; 'CALCULATE AND THE BIT TO BE IN ERROR 
3 10024 LD WRD (.RIB_SEL, .NIB_PATS; iLOAD THE ERROR IN D1_TEMP OR D2_TEMP 
: 1 T_LNG_WRD; ‘LOAD THE REGISTER WITH THE ERROR 
3 1 DAT-DM_RFER (); iSET UP A DATA DIAG MODE TRANSF 
: 1 MLCS1 = write; iDO A WRITE TRANSFER 
: 1 DELAY (ONE_US); iGIVE THE PROM DATA TIME TO COME OUT 
22697 3 100 0 do eal 'LOAD THIS CHANNEL WITH MULTIPLE ERRORS 
Py n 
22699 : 1005¢ PD_TEMP = .MLPD; !READ THIS ARRAY WORDS PROM_DATA 
22701 : 10034 if .PD_TEMP C.NIB_SEL] IS_SET 'SEE IF THIS A GOOD NIBBLE 
4a 4 3 10035 then 
22 : 10036 DAT_CLK = ONE 'CLOCK OUT ANOTHER ARRAY WORD IF BAD 
704 ; 10037 else 
22705 : 10038 begin ‘ELSE CLOCK IN THE ERROR INTO A GOOD NIBBLE 
22706 ; 10039 GD_WRD_CNT = .GD_WRD_CNT + 1; 
22707 : 10040 DAT_CLR = ONE: 
22708 : 10041 end; 
22709 : 10048 
22710 : 1004 end 
eri : 10064 until .GD_WRD_CNT eql 6; 'REPEAT UNTIL 6 WORDS ARE WRITTEN 
serie : 10046 : ‘START OF SCOPE LOOP 
22716 : 1004 feus iCLEAR OUT THE DATA DISG MODE TRANSFER 
Hab : 10068 6D XFER QO: iSET UP A GOOD BLOCK TRANSFER 
716 : 10049 Ect_pIS = 0: iENABLE ERROR CORRECTION 
22717 : 10050 mLCS1 = read; iREAD OUT 
22718 : 10051 TIME_OUT_LOOP; iWAIT FOR THE TRANSFER TO COMPLETE 
22720 : 19038 incr WRD_CNT from 0 to 13 do 'SEE IF THE CORRECTIONS WHERE DONE 
ree : 10055 if 10_BUF C.WRD_CNT] neq ZEROES ‘TEST THE I0_BUF FOR ALL ZEROES 
726: 10087 begin ‘REPORT THE ERROR IF ANY LOCATIONS ARE NOT ZEROES 
725: 10058 E (141, SYNC, R); 
726 : 10059 PRINTB (THR_FMT, PHR_13, WRD_76, WRD_9): 
727 : 10060 PRINTB (FMT_22, .WRD-CNT, .BIT_CNT); 
728 ; 10061 end; 
T5 : 19068 
: 1 ENDSUB; ‘END OF SCOPE LOOP 
731 : 10064 end: 
he 3 10065 
3 10066 ENDTST; 
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110634 
110626 
112654 


112636 


112536 


$755: 


1$: 


5 
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JSR R1,$SAVES 
CMP -(§P) .=( 
BIC & .£ 
BIS +E 
CLR 
BISB 0 #40 
Sica? 
BICB = #7 AML. REG+40 
Re. QML .REG*40 
R1,R2 
2 


1 
R1,4377 
2$ 
PC,GD.BLK.XFER 
MOV #61 aL Re 
TST8 ofl -REG* 
BPL 
CLR RS 
CLR D1. TEMP 
cLR D2. TENP 
MOV RS (SP) 
MOV #%.~-(SP) 
JSR PC-BLSDIV 
MOV *=(SP) 
MOV #4.-(SP) 
JSR PC; 
MOV RO. 
ASR RO 
ASR RO 
ASR RO 
MOV #10,R1 
ADD SP,R1 
ADD R1.RO 
MOV RO. (SP) 
MOV R2.-(SP) 
BIC #177770, (SP) 
MOV #1,- 
MOV (SP) ,=(SP) 





gPqzenace 
3 
. 
g 


BeBe Se Be Se 


SEQ 0476 


2h eH TOPS=-20 Bliss-16 V2(212) 


PA: <NEALE>BL5ML4.BL1.2 (105) 


BIT.CNT 


NIB.PAT,* 


J_5 
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MISCELLANEOUS CODING SECTION 

















ZML4 
JSR PC ,BLSPU2 
MOV R4. (SP) : NIB.SEL,* 
MOV 16(SP) ,-(SP) t NIB.PAT.* 
JSR PC,LD.LNG.WRD 
MOV D1. TEMP, aL .REG*+170 
MOV Dg. TEMP. ar .REG* 
MOV E2. TEMP, aML .REG+1 
JSR PC DAT.OM.XFER : 
MOV #61 ,@ML.REG ; 
MOV #1,R1 : *,$$TMP2 
4$: BEQ 7$ 
MOV LSDLY,R2 z *,SSTMP1 
BEQ é$ 
58: CLR 22(SP) : SSTMP 
DEC + SSTMP1 
BNE 5$ 
6S: DEC R1 : SSTMP2 
BR 4$ 
7$: MOV R4,R2 : NIB.SEL,* 
ASR 
ASR 
ASR R 
ADD #PD. TEMP .R2 
17767 112536 112250 8$: MOV @ML .REG+230,PD. TEMP : 
446 oa SS : NIB.SEL 
' o> g a * 
6 177770 BIC #177770, (SP) 
012746 000001 my Hh § 
004767 102246 JSR pC ,BLSGT2 
vO JC 000010 ue a SP 
%: ‘e ‘ee 
702 34 Tne RS : GD.WRD. CNT 
JL ‘ ee V2 3 " . 
00704 152 900020 112362 93 B1S8 #20, 9M .REG+120 : 
in 020 CMP w") + GD.WRD.CNT,* 
001351 BNE gs 
D640¢ 10$: TRAP 
re 0 112264 B1SB 840,99 -REG+40 ; 
042702 1 BIC UT ARe 
DK 112246 47, .REG+40 
007 2 one BISB R2.aML.REG+ 
7 11 J GD .BLK.XFER : 
77% 112310 BICB 4 #2. @ML.REG+1 : 
91 112162 MOV aL. : 
' 112226 11$:  TSTB  @ML.REG+ 
776 100 BPL 11$ 
005001 CLR R1 ; WRD.CNT 
01010 12$: 4 R1,R2 :; WRD.CNT,* 


004 00630 AS R 
01006 905762 011600 TST —_10.BUF (R2) 





ay 


— 


tb a 


ad at ad 


a ee ee) 


—_ 





i 





Beg & Pos Me ES Root eo eer 


SEQ 0478 


33-Dec-1980 09:21 :22 
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| o 38 9 §§ aa 
| £ 
| 5 
x 
5 
— ~~ 3 
- 585% & 2 yf 
2 ngeesee' = See Sk, wok, sf ge OS 
‘ Bote ae stecardcecasarteettoutete 8S oy 
3 s% 
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z 
& 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 
3ML4 
10 BLO 1$ 
00020 RTS PC 


3; Routine Size: 6 words 





10067 !<BLF/PAGE> 


: Maximum stack depth per invocation: 


0 words 


3 


-Dec-1980 09: 
—Dec-1980 09: 


SEQ 0479 
:31 T 
:22 PA: 


m5 
ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 493 
MISCELLANEOUS CODING SECTION SEQ 0480 
18 34 33-Dec-1980 09:24:31 TOPS-20 BLiss- 16 v2(212) 
919 ; —Dec-19 :21:22 PA: <NEALE 4.BL1.2 (106) 
: 1 ' 
3 : BGNTST; 
: 1 lee 
: 1 7 | test NUMBER: TST 56 
: i ie! TEST NAME: ECC ERROR REGISTER TEST 
: 1 a i TEST DESCRIPTION: 
: 1 i TEST THE ECC ERROR REGISTER FOR 
; 10078 } CLEARING AND LATCHING OF ECC ERROR 
: 1 i INFORMATION ON DETTECTION 
; 10080 OF ECC ERRORS BY: 
: 1 i 1. THIS TEST IS TABLE DRIVEN. DATA TABLE (DT_1) 
3 1908S : CONTAINS ERROR FORCING DATA AND EXPECTED 
: 10084 : MLEE DATA AS A RESULT OF THE FORCED ERROR 
: 1 i 2. THE TEST THEREFOR INDEXES INTO DT_1 TO FORCE 
3 10087 AN ECC ERROR 
: 10089 } 3. A MASS BUS READ TRANSFER IS DONE 
: 19091 i 4. DT_1 IS AGAIN INDEXED AND ITS CONTENTS 
; 10098 } IS”COMPARED AGAINST THE RESULTING 
; 1009 : MLEE REGISTER CONTENTS 
: 10095 } 5. A MASS BUS CLEAR IS DONE AN MLEE IS CHECKED FOR 
; 10096 ZEROES 
: 10098 | 6. THE ECH BIT IS ALSO EXAMINED FOR CORRECT 
3 10099 LATCHING INFORMATION 
: 10101 
: 19108 i_ 
Pr; pies 
: 10105 local 
3 10106 FINISH, 'VARIABLE ENDING CONDITION FOR LATCH_LOOP 
; 1010 ERR_FLG; ERROR FLAG 
3 13109 CLR : ‘CLEAR THE DRIVE 
3 10110 FINISH = 4; iMAKE LATCH_LOOP DO 5 LOOPS AT FIRST 
: 1011¢ iner CLR_LOOP from 0 to 1 do 'THE FIRST PASS TESTS MLEE FOR LATCHING 
; 10115 THe Se COND PASS TESTS MLEE FOR CLEARING 
: 10115 
; 10116 incr LATCH_LOOP from 0 to .FINISH do 'TEST MLEE FOR LATCHING BY USING DT_1 DATA 
3 19118 ; 'START OF SCOPE LOOP 
: 1011 ERR_FLG = ZERO; CLEAR THE ERROR FLAG 
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MISCELLANEOUS CODING SECTION SEQ 0481 | 
976 3ML4 -1 : TOPS-20 BLiss-16 V2(212) 
ors 3 ae 380 Sa:Stise | Parcnewe 4.BL1.2 (106) 
La ih. 
597? ; 101 MLER = ZEROES; asa" ERROR REGISTER 
23978 ; 101 ECC_DM = ONE; 
9979 ; 101 PAR_CRC_WRD = ,DT_1 C.LATCH_L v0.53, ieMaee 7 PAR CRE WRD DATA FROM DT_1 
5980 ; 1 CRC BT} E-LATCH Looe. 33: waned, 
52981 : 101 CRC“B = :DT~1 C.LATCH-LOOP iGET Fron O11 
2982 : 101 GD ERO: iSET UP KR GOOD BLOCK TRANSFER 
52985 ; 101 CU_DIS = ZERO: DISABLE ECC DIABLE 
98, : 101 1 = read; i THE ERROR AND LACTH MLEE 
ORS : + 101 TIME_OUT_LOOP; 
? OBE 3 
52987 ; i 1 if .CRC_ERR neq .DT_1 C.LATCH_LOOP, CRC_DATA] then ERR_FLG = ONE; 'TEST CRC_ERR 
? ef ~ 3 
22989 : 101 if .SGL_ERR neq .DT_1 C.LATCH_LOOP, SGL_DATA] then ERR_FLG = ONE; TEST SGL_ERR 
Po SFR 3 
z. 771 191 4 if .UNC_ERR neq .DT_1 C.LATCH_LOOP, UNC_DATA] then ERR_FLG = ONE: ‘TEST UNC 
2998 : 101 if .BIT_IN_ERR neq .DT_1 C.LATCH_LOOP, E0_5)] then ERR_FLG = ONE; 'TEST BIT IN ERROR 
Soe, 
22 95 ; 101 if .CHAN_IN_ERR neq .DT_1 C.LATCH_LOOP, CO_5] then ERR_FLG = ONE; 'TEST CHANNEL IN ERROR 
2299 : 10140 if .ECH_ERR neq .DT_1 C.LATCH_LOOP, ECH_DATA] TEST IF ECH GOT SET 
22999 : 1014@ begin 5 ‘REPORT ERROR IF NOT SET 
93000 ; 1014, E ASYNC, DUMPER) 
53001 ; 10144 PRINTB RoR FMT, WRD_67, Wa 10, WRD_69, WRD_14); 
25002 ; 10145 end; 
25003 ; dg 
53006 ; 10167 if f ERR FLG IS_SET 'TEST IF THE ERROR FLAG GOT SET 
“5.0 Ld 
73006 ; 10149 'REPORT ERROR IF SET 
F007 : 10150 begin, . DUMPER) 
93008 ; 10151 PRINTR Ki ona Pmt “REG_ 16. 52 
009 ; 10158 PRINTB (FMT-1, .DT 1-L Tori oo e ‘34 MAtAD. <MLE ); 
53010 : 1015 PRINTS (FMT~19, .DT_1 tt ATC CA_LOOP, 80_5J, -DT_1 C.LATCH_LOGP, AO_5], .DT_1 C.LATCH_LOOP, PO_5J) 
53011 ; 10154 end: 
250 § 3 10155 
013 ; 10196 ENDSLB: ‘END OF SCOPE LOOP 
IS 1918 =e 
3 3 19138 CLR_MBUS; ‘CLEAR THE REGISTER 
3 10161 if f mee neq ZERO ~!SEE IF THE REGISTER GOT CLEARED 
3 19108 begin 'REPORT ERROR IF NOT CLEARED 
: 10164 E (125, SYNC, DUMPER);: 
: 10165 PRINTB (FOR_FMT, REG_14, WRD_5S2, FNC_7, WRD_14); 
: 10166 end: 
: 1016 
: 10168 ECC_DM = ONE: ‘ENABLE ECC DISABLE 
; 10169 FINTSH = ZERO; iMAKE LATCH_LOOP LOOP ONCE TO CLEAR MLEE AGAIN | 
: 10171 : | 
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10172 ENDTST; 
TN leer 


7 
112002 
000004 


Ws 
S 
¥ 


SF 


$756: 
112024 


112006 


112000 


1$: 


4$: 
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3 


R1,SSAVES 
#40, aL .REG+40 


35 
pe 


SESSRZ 
ye 
eR 
ae 


=35 
w= 
2 

~~ 
g~ 
i 


Peel Bt 


: *,FINISH 
; CLR.LOOP 


o eL 
; LATCH.LOOP 
3 LATCH.LOOP,* 


ERR.FLG 


SEQ 0482 | 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE 


4.BL1.2 (106) 


ad a ab 
sss 
ab Hb 


(aS 





0483 | 

A 

101 
} 
q 
a 
| 

101 
1014 
1014 
1014 
| 


; *,ERR.FLG 
; *,ERR.FLG 
; *,ERR.FLG 
; *,ERR.FLG 
; *,ERR.FLG 
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2(SP) 
2@ML .REG+60 
4,-(SP) 


& w'RERS wp 'KERS SEES SES 
ERS RECS as S 2. S88 


; 
Rercts So ibee5 8205 ini. oths 


GRBRaunRy 


¥ | 
| 
aN | 
aa | 
38 
pay: 
| 


SURSERSBRRSERRESEED SSSCREBESESRERRSSEESSebEmDsesse 


ee 
ad 
wv 


fe: 
= i =] UJ . J = : Be8 : s 
wee ~ 
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oS 
10$: 
11$ 
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a a a a Oe a oe ee, eee” OE, ee eg at rn nm Teo 
$ 83 BS 5 Pog. Bs 55 | 
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3S | 
58 
a8 
RN 3 | 
5 88 
x ms a a « ze 
a § ‘= £ . <5 
ieee eee re 
oF 8888 S889 sg 28088 2 
2 gSkes ents £5 2 spieves, 25 
2 este > igre SaeTe = SRR Te 2 | 2% 
a HET Scaee Senctes SEE so -REevar Seeeeeetsceneeeaseuetnoes 
© 
s  peppeetens?SSSecssetennnetesssssocaisfcssateiscenye 
o£. 2 $ 83 
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od oJ Soede 
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3ML4 


$2 


ia 


111102 17$: 


@ 
eal 


a 
= 
st 

— 
—— 
— 
@ 


Ow} 

& 

~ 

(7 any an 
“88 


PEE LEEEE 


000005 
000014 
tata 111054 18$: B1ISB 
CLR 
INC 
000001 CMP 
BGT 
176760 JMP 
19$: CMP 
RTS 


; Routine Size: 
3; Maximum stack 


T56:: 
176706 1$: JSR 
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SP ENy 
s 


aN 


—n=]N— 
“I 
38975 


1$ 
(SP) +, (SP)+ 
PC 


283 word 


Ss 
depth per invocation: 


PC,.$T56 
66 
RO 
1$ 


: SP,* 

t FINISH 

: CLR.LOOP 
+ CLR.LOOP,* 





33 


—Dec-1980 09: 


seo 08s | 
—Dec-1980 09:24:31 


:22 


101 


LE OE A, Sa 
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5 102256 000207 RTS PC 


; Routine Size: 6 words 
3; Maximum stack depth per invocation: 0 words 


3265 ; 10173 !<BLF /PAGE> 


SEQ 0486 | 
3 pee=1360 Ossstise Pace 


6 
C T MACRO M1113 22=DEC-80 12:16 PAGE $0 
NG SECTION SEQ 0487 


32-Dec-1980 09:24:31 TOPS-20 Blisg-16 y2(212) 





Dec-1980 09:21:22  PA:<NEALE>BL3ML4.BLI.2 (107) 
: 10174 
; 10175 BGNTST; 
3 1017 
3 10177 !4+ 
: 10178 | TEST NUMBER: TST 57 
3 10180 | TEST NAME ECC ERROR LOCATION REGISTER TEST 
3 1018¢ i TEST DESCRIPTION: | 
; 10183 | TEST THE ECC ERROR LOCATION REGISTER FOR CLOCKING, BIT UNIQUENESS | 
; 10184 } CLEARING AND LATCHING OF DSA ADDRESSES ON DETECTION OF ECC ERROR BY: | 
3 10186 i 1. TEST FOR CLOCKING BY: | 
; 10187 | . DOA BUS CLEAR FORCING REGISTER BITS TO ZEROES | 
; 10188 ! B. FORCE AN ECC ERROR AT THE LAST BLOCK AND DO A READ TRANSFER | 
; 10189 } C. CHECK MLEL FOR LAST BLOCK ADDRESS | 
; 10191 | 2. TEST FOR BIT UNIQUENESS BY: | 
BB 10198 } A. WITH FORCED ECC ERRORS DO READ TRANSFERS AT VARIOUS DSA | 
9; 10193 | ADDRESSES AND CHECK MLEL FOR LATCHED DSA ADDRESSES | 
0 ; 10198 } B. DO CLEAR AND REPEAT | 
$3098 ; 101% i 3. TEST FOR LATCHING AND CLEARING BY: | 
: 10197 | A. WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE 
232% ; 10198 | LAST BLOCK. (LATCHES MLEL WITH THE LAST BLOCK ADDRESS TO START THE TEST OFF) | 
23295 : 10199 : B. AGAIN WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT DSA | 
232% ; 10200 ZERO AMD CHECK PLEL FOR NOT LATCHING. | 
$3506 : 1020¢ } C. WITH FORCED UNCORRECTABLE ERRORS DO A READ TRANSFER AT DSA | 
35099 10208 } ZERO CHECK MLEL FOR LATCHED DSA ZERO | 
53301 : 10508 D. UITH FORCED SINGLE BIT ERRORS DO A READ TRANSFER AT THE LAST | 
35308 10206 | BLOCK AND CHECK MLEL FOR NOT LATCHING | 
; 10207 : NO_ CLEAR DONE | 
23304 : 10208 E. WITH A FORCED UNCORRECTABLE ERROR DO A READ TRANSFER AT | 
35308 10209 THE LAST BLOCK AN CHECK MLEL FOR NOT LATCHING | 
; 10210 ! F. DO A MASS BUS CLEAR | 
23307 ; 1021) | G. WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE | 
09 ; 13 H. DO A MASS BUS CLEAR AGAIN AND CHECK MLEL FOR ZEROES | 
1 ; 10215 1 IMPLICIT INPUTS: | 
1g : 10519 A “VECTOR OF 256 WORDS WHERE DATA | 
o5516 10218 FOR MBUS READS AND WRITES TRANSFERS | 
16 : 10220 } . | 
yi 
$3319 ; 10298 | 
$3350 : 108 4 local 
3321 : 10225 SGL, . 'SINGLE BIT ERROR PARRAMETER | 





H 6 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE 501 


MISCELLANEOUS CODING SECTION SEQ 0488 
TOPS=20 Bliss-16 V2(212) 
PA: <NEALE 4.8L1.2 (107) 


33506-1980 09:51:22 


q338 





ERRDF_ (126, SYNC. 


EXIT 

end;~ 

ENDSUB; 

SHF_DATA = .LST_ARR: 

iner wo from 0 to 16 do 
cn re ERR (SGL = 1, 
selectone .LOOP of 

set 


UNC = 0); 


CO0J beg 
n 
DSA_PAT = ZEROES; 
MLDA =. PAT; 
C1] : ‘ 
n 
beg PAT = .LST_BLK; 
MLDA = -DSA_PAT; 


Lathorwioes : 

n 
DSA_PAT = .SHF_DATA: 
MLDA _DA 


ROLLS VOVoy Romp 
SRRAB AEDES at uray MRR NU ERRMSG Sad S 


TA; 


a kk kk kh ht nk ah a th nt 4 2 sh ot Hh tt at 


88 
Yo! 
as 


DUMPER) 
PRINT TA FMT, REG_15, iro 52. PHR_11); 


UNC !UNCORRECTABLE ERR PARRAMETER 
SAVE, iTEMPORY SAVE LOCATION 
SHF_DATA, iSHIFTING DATA PATTERN SAVE LOCATION 
DSA~PAT; iEXPECTED DSA PATTERN LATCHED IN MLEL 
1 BGNSLB; ‘START OF SCOPE LOOP 
CLR_MBUS; 'CLEAR THE MLEL REGISTER 
FOR-ECC ERR (SGL = 1, UNC = 0): iFORCE A 
MLDA = -LST BLK: iLATCH THE LAST BLK ADRS INTO THE MLEL 
5S MLWC = not 255; 
MLBA = 10 BUF; 
MLCS1 = read; 'DO A READ AND LATCH THE MLEL 
TIME_OUT_LOOP; 
if MLEL eql ZEROES 'SEE IF THE MLEL GOT CLOCKED 


!REPORT AN ERROR IF NOT CLOCKED 


: END OF SCOPE LOOP 
!LOAD THE SHIFT DATA 


!FIRST TEST FOR 1°S AND 0°S THEN SHIFT DATA 
: START OF SCOPE LOOP 

!CLEAR THE DRIVE 

FORCE A SBE 


!SELECT THE TEST PATTERN 


!ZEROES PATTERN 


'MOSTLY ONES PATTERN 


!'SHIFT PATTERN 
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MISCELLANEOUS CODING SECTION SEQ 0489 


sML4 —Dec-1 4:31  TOPS-20 Bliss-16 v2(212) 
; 5 pee n=1986 83; $4 :22 PA:<NEALE 4.BL1.2 (107) 
tes; 
MLWC = not 255: 'SET UP THE TRANSFER 
MLBA = 10_BUF; 
mcst = oar’ ends. 'DO THE TRANSFER AND LATCH MLEL 
“= i tee 'READ AND SAVE THE MLEL REGISTER 
isi neq .DSA_PAT 'SEE IF SAVE IS WHAT WE EXPECTED 
begin !REPORT AN ERROR IF NOT THE SAME 
E (127, 
PRINTB ( AT REG 1S s 


a (EMT oh “DSA PAT, rig. * (.DSA_PAT xor .SAVE)); 


~ USI ILIISSesaS aes SS 





3 1 
3 1 
3 1 
3 1 
3 1 
; 1 
3 1 
3 4 
3 1 
3 1 
3 1 
3 1 
’ 1 
8 1 
_— 
3 1 ENDSUB; 'END OF SCOPE LOOP 
3 ; end; 
3 1 CLR_MBUS; 'CLEAR hy DRIVE 
3 1 FOR-ECC_ERR (SGL = 1, UNC = 0); iFORCE A SBE 
3 1 mw = not 255; 'SET UP A LAST BLOCK TRANSFER 
3 1 MLBA = IO BUF; iTO LATCH THE MLEL WITH T 
3 1 MLDA = .LST_BLK; 
; 1 MLCS1 = read; 
3 : TIME_OUT_LOOP 
3 , incr an from 0 to 4 do 'NOW TEST FOR CORRECT LATCHING 
3 1 ‘START OF SCOPE LOOP 
3 ; MLER = ° TEROES: 'CLEAR THE ERROR REGISTER 
; HY case .LOOP from 0 to 4 of 'SELECT TEST DATA 
3 be set 
3 19318 C0] : 'FORCE A SBE AND CHECK FOR THE LST BLK ADRS 
$ 10314 in 
Z 10315 =1; 
s 1osi8 inc = = 0: 
3 1031 DSA re = .LST_BLK; 
3 4 4 MLDA = ZEROES; 
: \s 1 end; 
3 1 1 C1] : 'FORCE A UNC ERROR AND CHECK FOR ADRS ZERO 
Z 10. sep'2 
Bi 19354 9: 

3 10325 rn Pays ZEROES; 
3 1 MLDA = ZEROES; 

31; 1 : 
Z 1 
; 1 


Bes 


[2] : 'FORCE SBE AND CHECK FOR ADRS ZERO 
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CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTI SEQ 0490 
sML4 —Dec-19 24:31 TOPS-20 Bliss-16 V2(212) 
3 pean s+ $334 35 PA: <NEALE 4.BL1.2 (107) 
3 10. in 
; 10351 as ts 
3 1 UNC = 0; 
. & 1 DSA_PAT = ZEROES; 
$ 1 MLDA = -LST_BLK; 
: 18 5 end; 
S53: 10. (3) : 'FORCE UNC ERROR AND CHECK FOR ADRS ZERO 
3 10. peptn 
4 10. SGL = 0; 
3 1 UNC = 1; 
9; 10341 DSA_PAT = ZEROES; 
23450 ; ise MLDA = .LST_BLK; 
23451 ;: 1 end; 
4 3 10344 
3 10345 (4] : 'FORCE SBE AND CHECK FOR ADRS ZERO 
54; 10346 ooan 
23455 ; 10347 CLR_MBUS; 
Seees 3 10348 SGL = 1; 
oi 8 BS oat zerrs 
3 = é 
$3188 3 10351 MLDA = .LST_BLK; 
23460 ;: yi rs end; 
23461 ; Weer tes; 
2s 3 10355 FOR_ECC_ERR (.SGL., .UNC); ‘FORCE SELECTED FORCED ERROR INTO ML11 
3 10356 ALWC = 255; 'SET UP A TRANSFER 
23465 ;: 10357 MLBA = J0_BUF; 
23466 : 10358 MLCS1 = read; 'READ THE ERROR OUT AND LATCH MLEL 
23467 : 10359 TIME_OUT_LOOP; 
Sues 3 10361 if .LOOP neq 4 ‘TEST THE REG FOR LATCH DATA IF LOOP NEQ 4 
23470 ;: 108 t 
7 fal 3 1 SAVE = .MLEL 
ie 3 10364 el 
234735 : 10365 pogtn ‘ELSE TEST THE REG FOR CLEAR 
2474 : 10366 C vei 
23475 : 10367 SAVE = .MLEL; 
rn ae 
279 3 ine if SAVE neq .DSA_PAT 'SEE IF THE REG LATCHED Ok 
3 eee begin ‘REPORT ERROR IF NOT LATCHED 
23481 ;: 10. E (128, SYNC, R); 
oee8e 3 10374 PRINTB (THR_FMT, REG 15, WRD_71, WRD_10); 
; 10375 PRINTB (FMT_1, .DSA_PAT, .SAVE) 
Sans : 1037 _ 
23486 : 10. ENDSUB; 'END OF SCOPE LOOP 
23487 ;: ae end; 
23489 ;: 10381 ENDTST; 








g 88 8 SS 88 § aE 
. 
a 
AY 
| Sz 
ow 
4 
3 
4 
Bz zi 
3*. « = 
ogg age 5 28 
: RAN se *e*e ee *e te ee te tea te ee ee ee a ®ete te te fete tate 
| 33 
BB 
| bb 
aa 
| NN m_& 
'%s $ gise 3 $ 
2 3 «(Se 20S ( iti‘i‘“:té‘(<‘S? 
8 » S28o _ se kes 8 Ti ¢ 2 He 
. re Sheed & HOMES, . § 
So Boke? pStgnhe 2 fotos SF RS 
2 DE SORES eee g eee oe5. ony $5 
< Ei nS PeNOROE EGE SS RREMN TRAE EERE ALIE ROSY eee 
$ 
& ~ 23> 088 Po 8 
¢ -Sp Bae OSaosssaapehenyseeSescnnnstonetecass as 
26 gs é a 3 
= OD us ™N 
| 8 5 5 (Sass 5 
= - - eee _ 
5 SRSscn x 2 ne 
é 2 Sees S359 § Rese | Bed . 32 
a S sg rkS= ares = S35 3 $ & 
it - Lal = 
, eae 
ERS SAISL LSS OM M10. OPENER ARR MATA ARES 
RSE Oh aaa aaa nate anda anatehRES 
oz 








CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


se 


4 et et et Wn a SS 


EEE ; 


ald dd Ld dd 


aS y 
SES Ny s 


SRR R Pe Sa eS 


BRe 
{a5 


+ 


Lad nd Lad Und Lad Ld Lad Lad Lad Lad Lat ad Lat and Ud ad Lot ad Und 
OG 


SSSSIRENISS 


= 





MACRO M1113 22-DEC-80 12:16 PAGE bo 5° 


3ML4 


10$: 


CREPE ELS ls Crib 


EERE 


SoneagUeelagey 


s9ep88823 


@ML .REG+220,4 (SP) 
4(SP) ,R4 


wm 


FRENS 
¢ 


— 
wn 
a 


VaReeRaz 
*% 


“S 


33 5ec 


DSA.PAT 
LOOP ,* 


* ,DSA.PAT 
DSA.PAT ,* 


SHF .DATA,DSA.PAT 
SHF * 


: *,SAVE 
3; SAVE.DSA.PAT 


SP,* 


3: SAVE,* 
3; DSA.PAT,* 


DSA.PAT ,* 


: SAVE,* 
: DSA.PAT,* 


SP ,* 


-1980 
-1980 


SEQ 0492 | 


Bite 


T 
PA: 


eh ed oad ad od oth dh ed od ad = 


Cees 


555 


eset 
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* : 
x 
+ 
i 
+ 
+ 
4 
+ 
2 
< 
o 
e 
Se 
a 
- 
a 


CODING SECTION 


=> ih ae a 


as 


NOW 


oa ad a aed ed ad od 


So PREC SS Meee gERerec Ese 


“aoe 
: 
s 


P| 


aS4 


eee 


Bayes y 
pgzee 

De® 
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2 
Bp 
5 


¥ 


mak 
mae 
23° 


Ns 
8 
8 


3 
2 


Herth 


ReVsehzs 
2 a 
F 


= 
2 


ae 
A 


Bax 
£ 


“aa 
man 
3 


3; LOW 
; LOO,* 


LOOP 


LOOP ,* 


* ,SGL 
*,DSA.PAT 
SGL 

* ,UNC 

DSA .PAT 


; *,SGL 
; UNC 


Te 
| 
! 





Sea 0495, 
09:21:22 Pas 
1 
1029 
1 


ed wot cob eed cod ced ead ab ad ach et ed eet ced 





CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 





+ . >. sML4 
6h ; 
5e6 218: CLR 
a : 106334 107744 Mov 
366: é 228: MOV 
Dig MOV 
73665 bf 11251 JSR 
366 1 MOV 
P3661 7? 011 19r7 : 19 MOV 
e566 107 MOV 
366 23s TSTB 
23670 é BPL 
+ ) 000004 CMP 
2. BNE 
2”. it 107700 B1S8 
IG b/V- 1 MOV 
36 1 BIC 
2” 771 107662 BICB 
De 6 B1S8 
a56 5 11 000010 24$: MOV 
56 126 00001 CoP 
ae { TRAP 
F382 10 “WORD 
13687 1 0535 ~ 
Bs 1058 sono 
ene 1OSses B06606 wd 
93687 10337¢ 1 MOV 
73688 10: s37¢ MOV 
73689 103402 MOV 
93690 1 NBL06 MOV 
6M1 103610 TRAP 
23692 10: 000022 MOV 
365 10 ; MOV 
7565 US ‘ 
F698 10545 000008 mov 
7369 103430 MOV 
53697 103432 TRAP 
53698 103434 000020 ADD 
3699 103640 258: CP 
25700 10S4he TRAP 
Eta 2 103446 — 
3704 108452 “000004 - 
3 ’ 10348 BLE 
257U , 50 
3707 10346¢ 268: TST 
g3708 iC RTS 

ie: 

0 ; Routine Size: 

1 3; Maximum stack 
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R4 
L VAS Oe RESSO 


RS 

WL RE 
“a. 
-REG+220, 10(SP) 
SP) RG 


NEGPSRRREZIUUSSONSA 
@-@e 33 = 


wiwa 
~ 


GUSCARENSCRS 
as; A 
8 


<G 


es 
2% 
$ 


— 


. Me 
(SP)+, (SP)+ 
(SP)+ 

PC 


323 words 
depth per invocation: 


33 pec 


LOOP, * 


SP,* 
SAVE ,* 
DSA.PAT ,* 


SP ,* 


-1980 
-1980 


SEQ 0494 


09:91:22 
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MISCELLANEOUS CODING SECTION SEQ 0495 


1 157:: 
1 767 176566 1$: JSR PC $757 8 103 
Bes sree ef 
103476 ete BLO 1 

2% 500 000207 RTS PC 

; Routine Size: 6 words 
oe ; Maximum stack depth per invocation: 0 words 
bs 
23744 ; 10382 !<BLF/PAGE> 
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MISCELLANEOUS CODING SECTION 


ts Boot 1980 O9:ot ioe 
{ 


BGNTST; 


Oo 
wn 


S44 

TEST NUMBER: TST 58 

! TEST NAME: ECC HARD ERROR BIT TEST 
i TEST OyIA ECC BM 


1. Vv 
E 





THE ML11°S 
E 


0 
2. WITH ECC_DM = 0 AND DIS = 0 
TRANSFER AND CHECK ECH SET 


DIS =1 
DO A READ TRANSFER AND CHECK ECH NOT SET 


ee 


TOPS-20 Blis 
PA: <NEALE >8L. 


SEQ 0496 


=16 V2(212) 
4.8L1.2 (108) 


SSRI SES 38 


1 
1 
1 
7] 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
Bans 3 
65; 1 DO A READ 
23766 ; 1 
Sen 3 1 3. WwW 
68 ;: 1 
69 ; 1 
3 ! | IMPLICIT INPUTS: 
ei 
23776 : 1 IS FOUND. 
23775 : 10409 } 
$3578 3 10410 ! 
3 10411 ! 
3 ris 
; 19¢14 8 ere 
23781 ;: 13032 nb 
S38 3 19e19 ECC_DM = ONE; 
$580 3 iis PAR_CRC_WRD = ZEROES; 
5; 10419 CRC_A = ZEROES; 
$3588 3 : CRC_B = ZEROES; 
3 = 2 
23788 ;: 1 10_BUF = ONES 
3 1 GD-BLK_XFER (5; 
3 1 MLCS1 = write 
3 93 TIME_OUT_LOOP; 
: 10427 incr LOOP from 0 to 1 do 
237% : ine in 
237% : 106. ra 
So06 3 9 1 GD_BLK_XFER (); 
Stan 3 104 if .LOOP eql ZERO 
3 104 then 





A "VECTOR OF 256 WORDS WHERE DATA 
FOR MBUS READS AND WRITES TRANSFERS 


‘EXPECTED ECH_ERR VALUE 
'CLEAR THE DRIVE 


'SET ECC DIAG MODE 
'FORCE UNCORRECTABLE ERRORS INTO THE GOOD BLOCK 


!TEST ECH BIT FOR SETTING / NOT SETTING 
'START OF SCOPE LOOP 

'CLEAR THE DRI 

!SET UP A GOOD BLOCK TRANSFER 


‘SELECT THE TEST DATA 





7 
MACRO M1113 22-DEC-80 12:16 PAGE 310 


| CZMLABO ML=-11 LOGIC TEST | 
MISCELLANEOUS CODING SECTION SEQ 0497 
ML —Dec-1 :24:31  TOPS=20 BLiss-16 v2(212) | 

3 5 peat 49 $534 35 PA: <NEALE 4.BL1.2 (108) | 





' 
‘ 10635 in 'EXPECT ECH BIT TO SET | 
‘ 104 bee DIS = 0; 
0 104 EXPECTED = 1; 
' 104 end 
0 10439 else 
10 19226 begin ‘EXPECT ECH BIT NOT TO SET 
11 10641 ECC _DIS = 1; 
iF 1 g EXPECTED = 6; 
iz ioeee pg 
15 10445 MLCS1 = read; 'READ THE ERROR OUT 
2 16 10446 TIME_OUT_LOOP; 
18 10448 if .ECH_ERR neq .EXPECTED 'IS ECH BIT WHAT WE EXPECTED 
19 10449 then 
10450 nm 'ERROR IF NOT 
10651 E (129, SYNC, DUMPER) : 
1045¢ PRINTB (FOR_FMT, WRD_67, WRD_10, WRD_69, WRD_14); 
1045 PRINTS (FMT_1, .EXPECTED, .ETH_ERR);: 
10454 end; 
10455 
10456 ENDSUB; ‘END OF SCOPE LOOP 
10457 end; 
10458 
10459 ENDTST: 


$758: JSR R1 





Petra gdad asad ticcdatadads ele . 
nd ed ed el ed en el el ee ee ed eB ed eed eb ed 0 Be Be Ge Se Be Gs Ge Ge Ge Be Ge Be Ge Be Se Ge Ge Be Ge Ge Be Se Se Ge Se 


BISB 
nc 
BICB) 4s #7 , AML .RE 
BISB aM .RE 
BISB ora -REG* ; 
BIC aM. .REG+150 : 
BICB ,@L..REG+150 : 
BICB 40s: #77. AL .REG+160 ; 
BISB #10. aml RE : 
#~1.10. BUF : 
11 JSR Pc , 6D BLK-XFER : 
107404 1$ TSTB aru ‘ReGi50 
1 CLR R1 : LOOP 
23854 10 1 2s: TRAP = 2 : 
23855 103626 152 000040 107360 BISB #40,aML.REG+40 F 
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MACRO M1113 22=DEC-80 12:16 PAGE 511 


CZMLABO ML-11 LOGIC TEST | 
MISCELLANEOUS CODING SECTION SEQ 0498 
238 ZML4 —Dec-1980 09:24:31 T 
xs 3 $5 pecn 1588 09:21:22 PA: 
SRG 1 10774 MoV sPYT.RO 
> 3.86 708 1 BIC ri RO 
iY. ee 107342 BICB 4s #7, @ML..REG+4 
°3865 1 ve 1 BISB RO,aML.REG+4 
&*- < 112 JSR PC,GD.BLK.XFER Py 104 
73.865 1 TST R1 + LOOP 104. 
AHL BNE 3$ 
386; 900002 107400 BICB #2,@ML.REG+120 : 104 
23868 1 MOV #).Re ; * EXPECTED 104 
23870 000002 107364 3S: BISB #2,@ML.REG+120 : 1 
3877 71 107234 4$: MOV 991 @ML-REG nahepeppe: i 
387% O67 909800 5$: TST8 ast : 
23876 1 BPL $ 
238 MOV R2.R3 : EXPECTED,* 1¢ 
TERTE CLR RO 
2387 4 000100 107274 BITB #100,a@ML.REG+60 
53878 401 BEQ 6$ 
53879 INC RO 
3880 6S: CMP = RO.R3 
388 1441 BEQ gs 
3882 104455 TRAP 55 ; 1045 
25005 e WORD 201 
388 SWORD SYNC 
2 SRRS e WORD 
it. 76 2 MOV MUIRD.14,-(SP) 3 104 
53887 46 00725 MOV MRD. 69.-(SP) 
Bi. 46 MOV WRD..10.~(SP) 
5889 766 7240 MOV MRD .67,-(SP) 
xy 1 006046 MOV #FOR. FMT .~(SP) 
53891 746 000005 mov #5.-(SP) fy 
ooo 04414 TRAP 14" - Ragla 
2385 995016 CLR (SP) ; 1045 
53.85 000100 107210 BITB #100,a@ML.REG+60 
2389 401 BEQ 7$ 
5385 7$ MOV RD, =(SP EXPECTED 
24: : — e o* 
3895 46 004222 MOV MEAT. 1.~(SP) 
Bes! 00000 — oes ~~ 
det $63706 000022 Mo i sP ca 1045 
5390 rth 8$: TRAP es é : 1045 
£5! ROR 
5300) a LOOP 1042 
PS QTE 7 e 
R008 3556 000001 ay gem > LOOP, * 
RTS PC : 1038 





: 
















#, 
MACRO M1113 22-DEC-80 12:16 PAGE 512 


sML4 


3; Routine Size: 124 words 


T58:: 
1$: JSR PC,$T58 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 





10460 !<BLF/PAGE> 





: Maximum stack depth per invocation: 


+ Maximum stack depth per invocation: 


13 words 


0 words 


SEQ 0499 | 


SSE BH 


104 
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CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE $13 


MISCELLANEOUS CODING SECTION SEQ 0500 
m4 33-Dec-1980 09:24:31 TOPS-20 BLiss-16 V2(212) 
9; -Dec-1980 09:21:22  PA:<NEALE 4.BL1.2 (109) 
13 1966) ! st 
‘ 19608 / 
$ 10464 !++ 
5: 5 i TEST MUMBER: TST 59 
; i : TEST NAME: DATA CHECK ERROR BIT TEST 
9; 10469 i TEST DESCRIPTION: 
: 10470 | VIA ECC_EN, ECC_DM AND ECC_DM TEST THE 
1; 10471 : DCK BIT FOR SETTING AND NOT SETTING BY: 
: 19098 i 1. VIA ECC_DM AND A WRITE TRANSFER FORCE 
; 10474 | ECC ERRORS INTO THE ML11°S GOOD BLOCK 
Se5ce 19058 2. WITH DCK_EN = 1, ECC_DM = 0, ECC_DIS = 0 
3 ! a = = Q@, 4 = 
7: 19677 DO A READ TRANSFER ARD CHECK THE DCK BIT SET 
; ; 19499 3. WITH DCK_EN = 0, ECC_DM = 0, ECC_DIS = 0 
° H e = = Q, . = 
335% : 10480 DO A READ TRANSFER ARD CHECK THE DCK BIT NOT SET 
23972 : 1 i 4. WITH ECK_EN = 1, ECC_DM = 0, ECC_DIS = 1 
S505 : 19083 i DO A READ TRANSFER ARD CHECK THE DCK BIT SET 
23976 : 10484 | 
23975 : 10485 | 
23976 : 10486 ! IMPLICIT INPUTS: 
23977 : 10487 | _BUF 
23978 : 10488 | A “VECTOR OF 256 WORDS WHERE DATA 
prided : 10489 ! FOR MBUS READS AND WRITES TRANSFERS 
; 10490 i IS FOUND. 
23981 : 10491 | 
3 Hg 4 ! 
3 10493 !-- 
3 10494 
: 10495 Local 
23986 : 10496 GL. 'SINGLE BIT ERROR PARRAMETER 
3 1049 'UNCORRECTABLE ERROR PARRAMETER 
; 10498 EXPECTED: iEXPECTED DATA CHECK BIT VALUE 
: 10500 CLR_MBUS;: ‘CLEAR THE DRIVE 
: 1 FOR-ECC_ERR (SGL = 1, UNC = 0); iFORCE A SBE 
5 1 BAI = ONE; 
: 1 10_BUF = ZEROES; 
: 10504 GD BLK_XFER O: 'SET UP A GOOD BLOCK TRANSFER 
: 10505 mLtS1 = write: iWRITE THE DRIVE WITH THE ERROR 
3 Ione TIME_OUT_ 3 
5 1050 
: 10508 iner Loop from 0 to 2 do ‘TEST DCK BIT FOR 3 CONDITIONS 
e 0509 n 
24000 : 10317 BCR MBS; iCLEAR THE DRIVES 
ted : 10512 GD BLK XFER QO: iSET UP A GOOD BLOCK TRANSFER 
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~ 33pec=1980 09:51:22 Par <MEALEDOLSMLS.BL 1-2 (109) 


3 10513 
3 10514 case .LOOP from 0 to 2 of 'SELECT THE TEST DATA 
: 10515 set 
0; 19318 
11: 1051 (0) : ‘EXPECT THE DCK BIT TO SET 
§ 3 19318 begin 
13; 1051 DCK_EN = 1; 
1% : 105 ECC “DIS = 6 
15; 10521 EXPECTED = 3; 
16 : 105, end; 
Nn? 3 105. 
18 ; 10526 (1): ‘EXPECT THE DCK BIT NOT TO SET 
9; 105. pogtn 
: 19859 pee~pis = 6 
3 = 0; 
3 10898 EXPECTED = 6; 
: e534 end; 
: 105 
: 10531 [2] : ‘EXPECT THE DCK BIT TO SET 
; ek begi 
7: 105 DCK_EN = 1 
: 10534 ECC"DIS = 1 
; 10535 EXPECTED = 1; 
r 105. end; 
24031 ; yeh tes: 
sioss : 10539 MLCS1 = read: 'READ THE ERROR AND CLOCK THE DCK BIT 
24034 ; 10540 TIME_OUT_LOOP; 
24035 : 10541 
208 : 1054 if .DCK neq .EXPECTED 'IS THE DCK BIT WHAT WE EXPECTED 
38; 10544 begin ‘REPORT THE ERRRO IF NOT THE SAME 
S040 : 10546 if .LOOP meq ONE then ERRDF (130, SYNC, DUMPER) else ERRDF (130, ASYNC, DUMPER): 
24062 : 10548 'CHOOSE WHICH THE ERROR IS ON 
24043 ; 10549 PRINTB (THR_FMT, WRD_72, PHR_S, WRD_10); 
246044 : 10550 PRINTB (FMT_1, EXPECTED, .DUKS; 
24045 ;: eas end; 
: 19888 ENDSUB; 'END OF THE SCOPE LOOP 
: 10554 end: 
24049 : 10555 
24050 : 10556 ENDTST: 
24054 


MISCELLANEOUS CODING SECTION SEQ 0501 


-A2 =e = Ck eo | i aaond -— Sa cae eel oe eel el oe ee el ee 


7 


sML4 


MACRO M1113 22=DEC-80 12:16 PAGE bs 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 





$333 8 8883 885 65 SBBBBeeey § ig # 2 


1054 


“ag & & Pete é 
e co & Poel S288 RZ 
pe ee es ae 
phases . Ge ee Senta eH EE Oke SP? 
aRarakey gSaok® § Sakekoe Gaaakk RK ExaSe 2 os 
SEPCRQEEET RSE SENS PERSE EERIMGENLENUBL NC RNeko ees 
888 Bea>® hho 88 88 880 BRoo® ver suac 
pSz Oi aanag Sagal ve 388g s2GbG8S 88 Baa8 aan vece 
5 4 4 3 8 §$ #88 ) 
3 
8 





PEQSLLOL BERN RKPRELS EE LEE RS Qe SASS RESSVSsSSsSe2sorwm 





T 
PA 
1 
1 
1 
1 
1 
1 


SEQ 0503 | 
| 
| 

054 
055 
| 
| 
| 
| 
054 
05 
3 
| 
| 
| 
_| 


e SP ,* 
: EXPECTED,* 
SP,* 
; LOOP 
; LOOP,* 
14 words 


33-pee=1960 09:91:22 


7 


141 words 


PC 
3: Maximum stack depth per invocation: 


ML4 
11$ 
12$: 
3$ 
14$ 


MACRO M1113 22-DEC-80 12:16 PAGE 416 
BEQ 
PAP 
WORD 
WORD 
oo 
RAP 
WORD 
WORD 
WORD 
MOV 
MOV 
MOV 
MOV 
aa 
cue 
“ 
iow 
MOV 
MOV 
MOV 
TRAP 
ADD 
TRAP 
ROR 
BLO 
INC 
CMP 
BLE 
CMP 
RTS 

; Routine Size 


NG SECTION 





SSSSSASSSASSAS SS SAS SSSSSA Pope eee 


0 el el ek ek ee cl el el el el ol ek el ll ll ll ek ll ek ll kl 


cenk RAISIVISISISRAARAASSS 


a a a heh oh oh oh oh oh oh oh pb va vada ah caval eh vena ee SL HAR de a ad og | 


ecceret eEe tte teat, 











CZMLABO ML-11 LOGIC TEST 
COD! 


MISCELLANE 
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MACRO M1113 22=DEC-80 12:16 PAGE $17 


3 


MISCELLANEOUS 


ed SD a a 


ak ek ed ed aed td ad 2a 2 8 ed 
Wi 


SVELSISIVSARATIS 


10557 !<BLF /PAGE> 


18: JSR .$T59 
TRAP 


65 
BLO 1$ 
RTS PC 
3; Routine Size: 6 words 

: Maximum Stacx depth per invocation: 








SELKSRESIS 


Be Se Ge Fe Ge De Se Ge Se Ge Ge Ge Ge Se Be Ge Se Se Se Be Ge Ge Ge Be Ge Ge Ge Ge Ge Be Be Se Be Ge Se Se Se Se Ge Go Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Se 


RB me me em eB ke kd a a eh dt os td at Ss 


SSS TEESE 22 PeSbennaxett sc atu cao 









BGNTST 

bag 

TEST NUMBER: TST 60 

TEST NAME: PROM DATA TEST 

TEST DESCRIPTION: 

i VERIFY THAT CHECK SUM VALUES FOR 
i SENT Y ARRAY UV PROM 
LOCATIONS ARE ERROR FREE BY: 
i ® DOING MBUS TRANSFERS 

; ALL PRESENT BLOCKS 

i WD TESTING THE UNS BIT 
TO BE CLEARED. 

IMPLICIT INPUTS: 

10_BUF 

i A VECTOR OF 256 WORDS WHERE 
i DATA FOR MBUS READ AND WRITE 
! FUNCTIONS IS FOUND. 

i 

i CHIP_$IZ 

i INDITATED THE SIZE OF THE 
ARRAY MODULES MOS RAMS. 

i 

= 


incr a eed from 0 to .LST_BLK do 
n 


ECC DIS 
= 
ALW = nat 258: 
= e 
=  DSACchT: 
MLCS1 = write; 
OUT s 
if .UNS IS_SET 
E oF (107, ARR_DAT R) 
PRINTB (TWO_FMT. WRD oy PR 4): 
PRINTB (FMT-9, .DSA_UNT); 


7 
MACRO M1113 22=DEC-80 12:16 PAGE big 


4:31 aes A a iss-16 V2 
1:22 4.8L1.2 


33506-1980 09: 


!WRITE TO ALL PRESENT BLK*S AND CHECK UNS BIT 


; DISABLE ECC 
‘LOAD WORD C 

{LOAD UBUS ADRS 
‘LOAD DSA 

DO A WRITE FUNCTION 


'SEE IF XFERR CAUSED AN UNS ERROR 
‘ERROR IF SET 
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MACRO M1113 22-DEC-80 12:16 PAGE S19 


1 @ conte me oe . woe. - 
ao 
cee 
y 
Saf 
A 
a i 
S ° « 
Se 8 8 
sf x 3 
77 ee 
as > * oF 3 
3 3 Z Eos 58% 
> ‘ ~N woz ; Gry i 
> a ree ae “a we HES 
rae ats - 
ss Se ee Meritt te 
Ak | 
are spigttese*epepoesessseEbe 
cs & § : 
oe | Bae : 
ase sf 5 é 
aod ty $333 3 
4 a 5 
iq 3 
O— NM FNOR CO 


TS Se 


S8EEESSELE 


1 cei uae Snel cee eel sone eel ee Seek oe dee gee eee ee oe ee et 





z. bla Niet tt Rah eth Dee De tet tehe Tak ek tek tak Tak Tk et ta ce ee at ee me a ee ee a he eh hh eh 
2 PBSNOLOAS BEMuseSeeeoens RR OLE RE 
SRD a nanan nea ROS ORE REP E Re PEE rE NEED 


CZMLABO ML-11 LOGIC TEST 
MISCELLANEOUS CODING SECTION 


| weart-ihal §*4 a , h e e  a =er SL hi 63 eto ee Co eee ee) ee ees 






7 
CZMLABO ML-11 LOGIC TEST MACRO M1113 22=DEC-80 12:16 PAGE %b0 
RrSteLLANEOus CODING SECTION SEQ 0507 
sML4 -1 1:24:31 
Sopec 1980 O9ss1iae PA 
1 MOV RO 3 SP,* 
1 TRAP 4 
) } mov Aro. (SP) Ssamtesniaie ; 
8 1 800863 MOV #2,~(SP) 
> 7 MOV aed 3 SP,* 
1 TRAP 4 
1 104616 000100 cep CHIP.S1Z,4100 F 
1 BNE 
1 MOV R1.RO : DSA.CNT,* 
1 ASR 
1 ASR 
1 ASR 
1 SWABS séRO 
1 177760 BIC #177760,RO 
1 MOV RO,-(SP5 
i 10 a 
1 Socbus MOV #2,~-(SP) 
1 MOV SP RO : SP,* 
1 TRAP «14 
1 BR 4$ : 
51 3$: MOV R1,RO > DSA.CNT,* 
i ASR RO 
31 SWAB SséRRO 
91 177760 BIC #177760,RO 
0 1 MOV RO,-(SPS 
1 INC (SP) 
1 004610 MOV #FMT.8,-(SP) 
1 000002 MOV #2,-(SP) 
1 MOV SP,RO 3 SP. 
i B3706 000022 ss: Ae #02.SP 1 
; nth, $s: Re & 1 
31 ROR 
9 10506 BLO 1$ 
10506 sus 6s: OAR SO BSALENT.* _ 
1 BLE $ e e ro 
198056 Rs ope , 1055 


; Routine Size: 103 words 
3; Maximum stack depth per invocation: 12 words 








3sML4 
: 767 177656 Is-''  ysr_ PCS T60 
gee ow gs : 
103100 108778 ao |OOAS 
1051 000207 RTS PC 
3; Routine Size: 6 words 
> Maximum stack denth per invocation: 0 words 
378 


379 ; 10627 !<BLF /PAGE> 


a 


Dec-1980 
Dec-1980 





—_—————. -$ —____ _ __ 


CZMLABO ML-11 LOGIC 


MISCELLANEOUS 


ELELERA EERE EED Ebay wae aes 


TEST MACRO M1113 22-DEC-80 12:16 PAGE £52 


I 
CODING SECTION SEQ 0509 
3smL4 —Dec-15 24:31 TOPS=20 Bliss-16 V2(212) 
3 aaa bs 83 1:22 PA: <NEAL 4.8.1.2 (111) 
3 1 THE CLEANUP CODING SECTION IS EXECUTED AFTER THE 
3 1 HARDWARE TESTS ARE RUN ON A LOGICAL UNIT. 
3 1 BGNCLN; 
; 10631 CLR = ONE; 'CLEAR THE MASS BUS 
3 1 return; 
: 1 ENDCLN; 
105106 152777 000040 106100 LCLEAN: ois > i ealasataaion $ 1 
105114 000207 RTS $ 1 
105116 LSCLEAN:: 
105116 004767 177764 ; JSR PC, LCLEAN 3 1 
105122 104412 TRAP 12 
105124 RTS PC 
; Routine Size: 4 words 
> Maximum stack depth per invocation: 0 words 





10634 LASTAD; 
10635 BGNSETUP (0); 
10636 ENDSETUP; 


| 
| 
3; Routine Size: 4 words 
> Maximum stack depth per invocation: 0 words 


SSE RTE 


8 | 
MACRO M1113 22=-DEC-80 12:16 PAGE 3 
SEQ 0510 


M4 S3-Doc= 1980 09:24:31 TOPS 
; —Dec-1980 09:21:22 PA:< 
BLSLAS::.WORD TSFREE | 

<<TSFREE-<BLSLAS+4>>/2> 
TSFREE::.WORD 0 
LS$LAST== BLSLAS+4 | 
TSPTHV== 0 


SEND.LINK:: 
RTS PC é 1 


; Routine Size: 1 word 
3; Maximum stack depth per invocation: 0 words 





| 
| 
| 


; OTS external references 
-GLOBL rede S SSAVES., SSAVE4, SSAVE3 
-GLOBL SSAVE2, BL - BLSPU1, BLSGTI 
-GLOBL BLSDIV, BLSMOD, BLSMUL 


| 
| 
| 
; Size: 14698 code + 1916 data words 
03:04.1 

ry Used: 118 pages | 

: Cont Lotion Complete | 
| 

| 

| 

| 


000001 - END 


: Run Time: ‘ 
: Elapsed Time: 03:48.6 
3; Memo 





CZMLABO ML-11 LOGIC TEST MACRO M1113 22-DEC-80 12:16 PAGE Bas") 
SYMBOL TABLE 











ADR = G CSCLP1= 000006 EF .RES= 000037 G R ' 
ARR.DAS CSCVEC= 000036 Er STAs 000040 6 INTER = , 
ARR. IN CSDCLN= 000044 16. 0061 10.8UF 
ASSEN CSDRPT= 900034 ERMALK 08160 G it = g 
ASYNC (SoU = 90005 3 ERRMSG 002156 G ISU = 1 
A.CAL CSEDIT= 0000C E 000154 G ISAUTO= 1 
A. CSERM = 00005 ERRTYP 002152 G ISCLN = 1 
BI ¢ CSERAD= 0006 EV. = 000005 6 1S+RO = 000041 
OOOG6O s QOOOC s 
BI G CSERSF= 00005 ESEND 0021 06 ISINIT= 1 
BI 2 Sestan 900010 ES Teme 117 lease = ! 
BIT04 = 000020 G CSESEG= 000005 FIND.C 01543¢ I$PROT= 
BITOS = 000040 G CSESUB= 00000 FIRST. 016040 ISPTAB= 1 
BITOS G CSETST= 000001 FIV.FM= 00606 ISPUR = 1 
Sieg = Gees ¢ SSCS BRS Far- tas Bes HRS = Soe 
eee e a : = 
SIP i Bape 6 Hees, Faris San Heh Some 
BIT10 G CSGPHR= 000042 FMT.13= O05C ISSRV = 1 
B1T11 G C$GPLO= 00003C FMT.14= 00511 $SLB 1 
BITIe G C$GPRI= 00004C FAT 1S 0 139 Istst . 90004] 
BIT1 G CSINIT= 000011 FAT. 16s 005216 JSJMP = 900167 
Sivis stones ¢ = Eau GORD Par IE ar? Bien 
= 000050 * OC) 
BI G CSMEM = 000031 FAT 19 00541 LAUTO 164 
BIT G CSMSG = 0000 FMT.2 = OC LCLEAN 105106 
BITS : Sout 900014 FMT St= OOsS$4 EDLLNG Ot7ioe 
‘eee - @ tA ™ 
BITG G CSPNTF= 000017 FMT. 00560 LINIT 714 
BI G CSPNTS= 000016 FMT.23= OC LOAD.S 
SS sc ec i 
BLSDIV G C$ADBU= 000007 FMT.26= 005764 — 
BLSGT1 G CSREFG= 000047 FMT.3 = 0046354 CST _AR 
BLSGT2 G CSRESE= 000033 FMT. = 004400 LST.BL 
BLSLAS G C$REVI= 000003 FMT.5 = 006430 LST.DU 
BLSMOD G CSRFLA= 000021 FAT.G = Of f LSACP G 
BL G CSRPT = 0000 FMT.7 = OC LSAPT 5G 
BL G CSSEFG= 000 FAT.8 = 004610 LSAU G 
BL SPU2 G CSSPRI= 000C FMT.9 = 006 LSAUT G 
Boe 5 CSTPRI= 000% FNCL10= OT tscce G0s106 ¢ 
@ LARA o TL) DU . 
B.CAL DATA.L= 010 ae 110060 LSCLEA 5 G 
B.GEN DAT.DM ENC. 1¢= 010100 L$CO G 
CAL.CR DFPTEL 00; FNC.13= 01011 LSDEPO G 
CHIP.S DIAGMC= 000000 ENC. hs 0101 LSDESC G 
CSAU DIVMOD 003570 FNC.15= 010136 LSDESP 5G 
son = 0000; ‘Smee tk? ENE 19s dare tSDIsP ; 
CSBSEG= 00 R 024052 G ENC. 18s 0101 LSDLY 5G 
D1. TEM= 01115 FNC.19= 0102 L$DTP G 
CSCEFG= 0000 D2. TEM= 0111 FNC.2 = 00774 LSOTYP G 
aes 98 Fricke GOO ¢ | fheahs Se Holy BS § 
CSCLOS= EF PwR= 000034 G FNC.23= 01026 LSOVTY G 








SEQ 0512 


I ceed cet sek seh Semel ceed coe coal eel i oa sual i oust see saeek soe = TE eS _— Fee 


SSSSSSSSSSESSSSSDSESSESLESESE SES SSeS eS SES eee SESE I 


snencianieiattcameeneeneememmnatcies 


ananaaaanoaaoannoooaonoaooaonaoaonaaaaanoooooaooooo4n 2222222 


Stalin = 
ger =A 








5 5BSBOBOOGOOOHOOOGOGOHODGGHHHDHOHDHHDDHDHHDADHDHDSDHHHhHASADASHHDASHASHhAShSSSSS 


SPELEELEEE EEE ELEELEEEEEEEEEEPECETECET ETE PEPE T EET EEE ET PETS 


eoaacoccccacccaaccccaccccaaacccaaaacaaaaaaaaaacaaaacaaaaa 


8 
2 


F 


MACRO M1113 22-DEC-80 12:16 PAGE 52 


| 
SOS SPER ERS EREERE SEER DENN RRARR PORE RENE eR RRR EERE ERR RR RS 
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RD.EE T G WROD. YVOC 4 
RD.EL T 5G WRD. 312 0663. 
RD.ER 735 G WRD. 006646 
RD.E1 T 6G WRD.S3= 00665 
RD.E2 T G WROD. 006660 
RD .AR T G WRD. DOG6E 
RD.PA T 6G WRD. 0066 
RD.PD 14 G WRD.37= 00670¢ 
RD.REG T40 64 G WRD. 006770 
REG.IN 141 G WROD. 006 
REG.1 = T G WRD.4 = 0063. 
REG.1 14 G WROD. JVC BS 
REG.11= 144 G WRD.41= 006 
~3 9," 745 G WRD. "sy. 7 ¥G 
REG.1 146 G WRD. 006 
REG. 14= T% G i us a7 68 
REG. 15= T G WRD.4 JUC 
REG. 16= T4 G WRD 66s 00700 
et 10 ¢ Bee Brae 
REGIS O104 151 G Und. 65 ik? G 
REG. = 0266 T5 G WRD. a us BSS G 
REG. 0444 15 G WRD. 007046 66 
REG.o1= 010454 754 G WRD.51= 0070 G 
REG.3 = 74 155 G WRD. 007066 
REG.4 = 196 G WRD. 007074 
REG.5 = 1 TS e8 G WRD. 007104 
REG.6 = 010316 158 G WRD.55= 007114 
REG.7 = 01 159 G WRD. 0071 
REG.8 = 01 16 G WRD.57= 00713 
REG.9 = 01 T G WRD. 007140 
REM.TB 015434 T G WRD. "! 
Ree 004144 TR 66 WRD.6 = 006336 
1 11 G 19 6 WRD. 0 36 
RES 1 T1 G UM = G WRD.61= 007174 
RH.ADD 013 T1 G WRD.1 = WRD. 007210 
RH.ERR= 011 114 G WRD.1 WRD. 007216 
RH. TYP 327% 115 G WRD.11= WRD. 0072¢ 
RH. VEC 576 Tig 6G WRD.1 WRD. 00723 
SC.SET= 010 T1 G WRD.1 WRD.672 00704( 
SEV. FM= 1 T18 G WRD.14= WRD. JU . 
SFPTBL 66 719 6 WRD.15= WRD. D0 
SIX.FR= 100 T G wee WROD. = I! vie 
ST. 1 T G WRD.1 = WROD. JV OV 
STK.OF 121 6 WRD- 18= URD-71= 00 1g 
STRIPP 4 T G WARD. WRD. 00730 
SVCGBL= eit T 6 WRD.2 = O% WRD. 00731 
SVCINS= 177777 T24 G WRD. WRD. 007316 
SVCSUB= 177777 T25 G WRD. WRD. 007336 
SVCTAG= 177777 T G WRD. WR. 76s 00734( 
SVCTST= 177777 T G WRD. WRD.772 007346 
SYNC = 0526 728 G WRD. WRD.8 = 006360 
SSLSYM= T G WRD. WRD.9 = 006374 
TEN. FRE 14 T G WROD. WRT.CS 01 46¢ 
THR. FM= T G WRD. WRT.DA 02001 
TIME .O= 011106 131 G WRD. WRT.DS $4 
= = ™ ] 
TRBLE.= 011026 T 6 WRD WRT.D1 0215 
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